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FOREWORD 


This  interim  report  is  submitted  in  fulfillment  of  CDRL  CLIN  0001,  Data  Item  A009,  Title: 
Interface  Design  Document  of  a  Small  Business  Technology  Transfer  (STTR)  contract  No. 
Contract  No.  F33615-96-C-3217  entitled,  “Development  of  the  Aerodynamic/Aeroservoelastic 
Modules  in  ASTROS,”  covering  the  performance  period  from  24  September  1996  to  24 
September  1998.  This  document  provides  the  programmer’s  documentation  for  the  ZAERO 
module  in  ASTROS*. 

This  work  was  performed  by  ZONA  Technology,  Inc.  and  its  subcontractors,  the  University  of 
Oklahoma  (Research  Institute)/Technion  (I.I.T)  and  Universal  Analytics  Inc.  This  work  is  the 
second  phase  of  a  continuing  two-phase  STTR  contract  supported  by  AFRLAVright-Patterson. 
The  first  phase  STTR  contract  No.  F33615-95-C-3219  entitled,  “Enhancement  of  the 
Aeroservoelastic  Capability  in  ASTROS,”  was  completed  in  May  1996  and  published  as  WL- 
TR-96-3119.  Started  in  September  1996,  the  present  second  phase  STTR  contract  was 
conducted  by  the  same  team  members  as  in  phase  I.  These  contributors  are:  P.C.  Chen  (P.I.), 
D.  Sarhaddi  and  D.D.  Liu  of  ZONA  Technology  Inc.;  Fred  Striz  of  the  University  of  Oklahoma; 
Moti  Karpel  of  Technion/I.I.T.;  and  Tony  Shimko  and  Steve  Chen  of  Universal  Analytics. 

This  STTR  contract  is  sponsored  by  AFRLAVright-Patterson.  Capt.  Gerald  Andersen  is  the 
contract  monitor  and  Dr.  V.B.  Venkayya  is  the  initiator  of  the  whole  STTR  effort.  During  the 
course  of  the  present  phase  on  the  development  of  ASTROS*,  the  technical  advice  and 
assistance  received  from  Mr.  Doug  Neill  of  The  MacNeal  Schwendler  Corporation,  Dr.  V.B. 
Venkayya  and  others  from  AFRL  are  gratefully  acknowledged. 
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1.0  INTRODUCTION 


There  are  four  major  documents  that  describe  the  ZONA  Aerodynamics  Module  (ZAERO) 
Module  which  has  been  seamless  integrated  into  the  Automated  STRuctural  Optimization 
System  (ASTROS).  These  are:  the  ZAERO  User’s,  Programmer’s,  Application  and  Theoretical 
Manuals  for  ASTROS*.  While  ZAERO  represents  the  ZONA  Aerodynamics  Module, 
ASTROS*  is  defined  as  the  seamless  integration  of  ZAERO  into  ASTROS,  i.e.  ASTROS*  - 
ZAERO  +  ASTROS.  This  Programmer’s  Manual  gives  the  detailed  description  of  the  ZAERO 
software  and  its  interface  with  the  ASTROS  system.  Newly  created  database  entities  in  support 
of  the  ZAERO  module  within  ASTROS*  are  described.  Newly  developed  engineering 
application  modules  comprising  the  ZAERO  module  are  presented  in  detail. 

This  manual  assumes  that  the  user  is  familiar  with  the  ASTROS  system  (Version  11.0),  its 
terminology  and  programming  environment.  A  complete  and  comprehensive  description  of  the 
ASTROS  environment  can  be  found  in  the  ASTROS  User’s  and  Programmer’s  Manuals  (Refs 
1,2).  In  particular,  this  manual  is  geared  toward  system  administrators  and/or  programmers 
within  the  ASTROS*  enviroment. 

Section  2  presents  an  overview  of  the  ZAERO  software,  its  aerodynamic  capability  over  that  of 
the  previous  modules  in  ASTROS,  and  the  program  architecture  of  ZAERO  in  relation  to 
ASTROS. 

Section  3  presents  the  computer  files  delivered  under  this  contract  which  contain  all  of  the 
subroutines  of  the  ZAERO  module,  the  modified  System  Generation  (SYSGEN)  input  for 
ASTROS*,  and  the  ASTROS*  system  generation  process. 

Section  4  presents  the  ZAERO  engineering  application  modules  (altogether  nine  modules)  that 
make  up  ZAERO  within  the  ASTROS*  environment.  Together  with  the  ASTROS*  object 
library,  these  ZAERO  engineering  applications  modules  constitute  the  entire  ASTROS* 
executable  (see  ASTROS*  system  generation  flow  chart). 

Section  5  presents  the  ZAERO  specific  relational  and  matrix  database  entity  descriptions 
established  upon  building  of  the  ASTROS*  system  that  are  used  for  communication  of  data 
among  the  ZAERO  engineering  application  modules. 
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2.0  ZAERO  MODULE  AND  ASTROS* 


ASTROS  (Automated  STRuctural  Optimization  System)  is  a  finite  element  based  procedure 
tailored  for  the  preliminary  design  of  aerospace  structures.  As  such,  it  includes  flexibility  and 
generality  in  multiple  discipline  integration.  For  aircraft,  missile  or  spacecraft  design,  the  unique 
attributes  of  ASTROS  lie  in  its  savings  of  design  effort  and  time,  improvement  in  flight 
performance  and  reduction  in  structural  weight.  In  principle,  ASTROS  was  aimed  at  the 
effective  multidisciplinary  interactions  between  aerodynamics,  aeroelastics,  structures  and  other 
modules.  Although  today  a  well-aclaimed,  proven  tool  for  Multidisciplinary  Optimization 
(MDO)  and  analysis,  ASTROS  still  requires  further  improvement  in  its  capabilities  in 
steady/unsteady  aerodynamics,  aeroelasticity  and  aeroservoelasticity  (e.g.  Ref  3). 

The  ZONA  aerodynamic  codes  contained  in  the  ZAERO  module  are  the  software  products  of 
ZONA  Technology  developed  throughout  the  years.  These  include  four  major  steady/unsteady 
aerodynamics  codes,  namely  ZONA6,  ZONA7,  ZTAIC,  and  ZONA7U,  that  jointly  cover  the 
complete  domain  of  all  Mach  number  ranges.  The  ZONA  aerodymanic  system  (the  ZAERO 
System)  which  contains  the  ZAERO  module  and  two  other  modules  were  developed  under  the 
support  of  AFRLAVright-Patterson  AFB  for  their  seamless  integration  into  the  ASTROS  system 
to  improve  and  enhance  the  capability  of  ASTROS  in  aerodynamics,  aeroelasticity  and 
aeroservoelasticity  (ASE).  In  particular,  the  ZAERO  module  improves  the  aerodynamics 
capability  over  the  earlier  aerodynamics  modules  in  ASTROS  in  the  following  aspects  (also  see 
Figs  1  and  2): 

1.  Wing-Body  geometry  input  for  realistic  aircraft  configurations  including  external  stores. 

2.  Flight  regimes  that  include  subsonic,  supersonic,  transonic  and  hypersonic  Mach  numbers. 

3.  High-order  paneling  scheme  to  assure  accurate  and  robust  solutions  (without  stringent 
paneling  requirements). 

4.  Provides  Aerodynamic  Influence  Coefficient  (AIC)  matricies  for  all  flow  regimes  including 
the  generation  of  transonic  AIC. 

5.  Steady/unsteady  aerodynamic  options  for  static  and  dynamic  aeroelastic  applications. 

6.  Unified  aerodynamic  geometry  bulk  data  input. 

The  development  and  seamless  integration  of  the  the  ZAERO  System  into  ASTROS  has  created 
a  unique  Multidisciplinary  Design/ Analysis  and  Optimization  (MDO/MAO)  tool  that  is  currently 
unsurpassed  in  its  steady/unsteady  aerodynamic  and  aeroelastic  capability.  The  ZAERO  System 
consists  of  essentially  three  modules  which  include  the  ZAERO  module,  the  AGM  (aerodynamic 
geometry  module  )  and  the  3D-Spline  module  (see  Fig  3). 

As  can  be  seen  in  Fig  1,  current  capabilities  of  ASTROS  and  NASTRAN  are  limited  to  subsonic 
and  supersonic  Mach  numbers  and  applicable  to  lifting  surfaces  only.  By  contrast,  ZAERO  is 
valid  throughout  the  full  range  of  subsonic  to  hypersonic  Mach  numbers  and  is  applicable  to 
complex  aircraft  configurations  with  external  stores. 


2 


NONE 

dim/ 


Msa 

NASTRAN 

AERO 

MODULE 


ZONA51 


MACH  NUMBER 


10 


Figure  1.  ZAERO  and  Other  Aerodynamic  Modules. 


Fig  2  shows  the  capability  of  each  code  in  the  ZAERO  Module  (marked  with  f)  along  with  other 
ZONA  Codes. 
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Figure  2.  Capability  of  the  ZAERO  Module. 

The  seamlessly  integrated  ZAERO  System  in  ASTROS  is  called  ASTROS*.  Fig  3  illustrates  the 
role  of  the  ZAERO  System  within  ASTROS*  and  the  overall  ASTROS*  program  architecture. 
The  ZAERO  System  consists  of  three  primary  modules  with  the  following  functionalities: 

•  Unified  Aerodynamic  Geometry  Module  (A  GM) 

The  Unified  Aerodynamic  Geometry  Module  processes  the  ZAERO  model  aerodynamic 
geometry  input.  Two  newly  created  bulk  data  entries  are  used  to  define  the  aerodynamic 
geometry,  namely  CAER07  for  wing-like  components  such  as  wings,  tails,  pylons,  launchers 
and  store  fins,  and  BODY7  for  body-like  components  such  as  fuselage,  stores  and  missile 
bodies. 

•  3-D  Spline  Module 

The  3-D  Spline  Module  provides  for  the  interconnection  between  the  aerodynamic  and 
structural  models  through  the  generation  of  spline  matricies.  Three  spline  methods  are 
supported  by  this  module.  These  are  the  infinite  plate  spline  (EPS)  method  (SPLINE  1),  the 
beam  spline  method  (SPLINE  2)  and  the  thin  plate  spline  (TPS)  method  (SPLINE  3).  The  TPS 
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is  an  addition  to  the  spline  capability  provided  by  ASTROS  and  unlike  the  IPS  method  does 
not  require  that  a  spline  plane  be  defined. 

•  The  ZAERO  Module 

The  ZAERO  Module  is  made  up  of  the  four  major  aerodynamic  codes  (ZONA6,  ZONA7, 
ZTAIC,  ZONA7U)  and  generates  the  Unified  Aerodynamic  Influence  Coefficient  (UAIC) 
matrices,  gust  force  vectors,  control  surface  aerodynamic  vectors  and  steady  aerodynamic 
force  vecotrs  of  trim  parameters. 

Database  entities  generated  by  AGM,  3-D  Spline  and  ZAERO  modules  are  computed  in  the 
ASTROS*  preface  phase  and  are  not  recomputed  in  the  analysis/optimization  loop. 


Figure  3.  ASTROS/ZAERO  (ASTROS*)  Program  Architecture. 
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3.0  ASTROS*  SYSTEM  GENERATION 


3.1  Generation  of  the  ASTROS*  System 

The  ASTROS  System  Generation  Process  (SYSGEN)  has  been  modified  to  include  the 
compilation  of  the  ZAERO  module  source  code  and  the  linking  of  the  ZAERO  module  object 
code  into  the  ASTROS  system.  For  ease  of  use,  the  system  generation  process  has  been  kept  the 
same  as  that  of  ASTROS  (Version  11.0).  The  change  made  to  this  process  to  incorporate  the 
ZAERO  module  are: 

1 .  Updates  to  the  SYSGEN  input  files  (described  in  Sections  3.2.1  through  3.2.5) 

2.  Modified  script  file  Makexqdriv  for  compiling  the  ZAERO  module  source  code  (described  in 
Section  3.1.1) 

3.  Modified  script  file  Makeastros  for  linking  of  the  ZAERO  module  object  code  into  the 
ASTROS*  system  (described  in  Section  3.1.2) 

The  entire  SYSGEN  process  is  depicted  in  Figure  4  and  is  briefly  outlined  as  follows. 

The  modified  SYSGEN  input  files  (1)  are  processed  by  SYSGEN  (2).  SYSGEN  generates  the 
ASTROS*  System  Database  (SYSDB)  (3),  SYSGEN  output  file  (4)  and  the  fortran  source  code 
XQDRIV  (5).  Both  the  ZAERO  engineering  applications  modules  (6)  and  XQDRIV  source  code 
(5)  are  compiled  by  the  Makexqdriv  script  file  (7).  The  object  library  of  ASTROS  (Version  11.0) 
(8)  and  object  files  generated  by  Makexqdriv  (7)  are  linked  via  the  Makeastros  script  file  called 
by  astlink  (9)  to  generate  the  ASTROS*  Executable  Image  (10).  The  ASTROS*  System 
Database  (3)  and  ASTROS*  Executable  (10)  make  up  the  ASTROS*  system. 

3.1.1  Compiling  the  ZAERO  Module 

The  Makefile  (Makexqdriv)  used  to  compile  the  XQDRIV  file  generated  by  SYSGEN  and  located 
in  the  ASTROS  (Version  1 1.0)  sysgen  directory  has  been  updated  to  compile  the  ZAERO  source 
files  listed  in  Table  1  (see  Figure  5).  Should  any  modifications  to  the  source  code  be  required, 
the  corresponding  files  where  changes  are  made  must  be  re-compiled  in  Makexqdriv.  If  no 
changes  are  made  and  the  user  wishes  to  re-build  the  ASTROS*  system,  it  is  not  necessary  to  re¬ 
compile  these  files.  Therefore  all  corresponding  lines  in  Makexqdriv  can  be  commented  out  to 
speed  up  the  ASTROS*  regeneration  process. 

3.1.2  Linking  the  ZAERO  Module 

The  Makefile  (Makeastros)  called  by  the  astlink  script  file  to  relink  ASTROS*  and  located  in  the 
ASTROS  (Version  11.0)  sysgen  directory  has  been  updated  to  link  the  ZAERO  object  files 
generated  upon  the  compilation  in  Makexqdriv  (see  Figure  6). 
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Figure  4.  ASTROS*  System  Generation  Process. 
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update:  compflgs 
#  clean  up 

G  rm  xqdriv.o 

Gecho  "astros.a  now  up  to  date" 
xqdriv.o:  xqdriv.f 
@echo  "" 

8echo  "compiling  xqdriv.f  with  the  "  \"$(FC)\"  "  compiler  and  flags  "  \"$ ( FFLAGS) \ " 
Gecho  "" 

$ (FC)  $( FFLAGS)  -c  xqdriv.f 


#  ZAERO  Source  Files 

#  - - - - - 

Gecho  "" 

$  (FC)  $( FFLAGS)  -c  aerogm.f 
@echo  "" 

$ { FC)  $ { FFLAGS )  -c  fltqhz.f 
Gecho  "" 

$ ( FC)  $ (FFLAGS)  -c  splinz.f 
Gecho  "" 

§ ( FC)  $( FFLAGS)  -C  utility. f 
Gecho  "" 

$ ( FC)  $( FFLAGS)  -c  zaerom.f 


THIS  SECTION  CAN  BE  COMMENTED  OUT  WITH  {#} 
IF  NO  CHANGES  ARE  MADE  TO  THE  ZAERO 
SOURCE  CODE 


Gecho  "" 

$ (FC)  $( FFLAGS)  -C  XXBD.f 

#  now  update  the  astros  library  with  the  new  xqdirv 
Gecho  "" 

Gecho  "updating  astros.a  ...  " 

/usr/ccs/bin/ar  $ (ARIFLGS)  astros.a  xqdriv.o 
compflgs:  ,  . 

6/usr/ccs/bin/malce  -f  Malceflags  $ (TARGET)  "MFILE  -  Malcexqdriv"  "RETURN  -  xqdriv.o" 


Figure  5.  Modified  Makexqdriv  File  for  ASTROS*. 


#  procedure  to  relink  astros 

# 

#  get  the  fortran  compiler  flags  from  Makeflags 

# 

load:  compflgs 

Gecho  "  " 

Gecho  "Linking  complete  new  version  of  astros  now  exsits" 

compflgs: 

G/usr/ccs/bin/make  -s  -f  Makeflags  $ (TARGET)  " RETURN **1 astros"  "MFILE~Makeastros" 

lastros: 

Gecho"" 

Gecho  "Generating  a  new  version  of  astros.bin" 

Gecho  "" 

G/usr/ccs/bin/ar  $ (AROFLGS)  astros.a  astros. o 

Gecho  "Relinking  astros  -  (  This  will  take  a  few  minutes  )" 

#  G$ (LINK)  $ (ENTRY)  $ (LINIT)  -o  astros.bin  astros. o  aerogm.o  XXBD.o  astros.a  $ (LIBS) 

G$ (LINK)  $ (ENTRY)  $ (LINIT)  -o  astros.bin  astros.o  XXBD.o  aerogm.o  fltqhz.o  splinz.o  utility. o 
zaerom.o  zaerolib.o  astros.a  $ (LIBS) 

Grm  astros.o 


Figure  6.  Modified  Makeastros  File  for  ASTROS* 


3.2  ZAERO  Sysgen  Input 


To  facilitate  the  ASTROS*  system  generation  described  in  Section  3.1,  the  five  SYSGEN  input 
data  files,  namely  MODDEF.DAT,  MAPOLSEQ.DAT,  TEMPLATE.DAT,  RELATION.DAT  and 
SERRMSG.DAT,  have  been  modified  to  include  all  components  necessary  for  integration  of 
ZAERO  in  ASTROS*.  Modifications  to  each  of  these  files  are  described  in  the  following 
subsections.  The  physical  changes  made  to  each  of  these  files  are  presented  in  Appendicies  A 
through  E,  respectively. 

3.2.1  Functional  Module  Definintion  (MODDEF.DAT) 

The  ASTROS*  run-time  library  of  MAPOL  addressable  modules  file  (MODDEF.DAT)  has  been 
updated  to  account  for  all  newly  developed  engineering  application  modules  presented  in  Section 
5.  These  module  definitions  provide  the  additional  links  between  the  ASTROS*  executive 
system  and  the  ZAERO  engineering  application  modules.  The  ZAERO  functional  module 
defintions  are  presented  in  Appendix  A.  For  a  detailed  description  of  this  file,  please  see  Ref  2. 

3.2.2  MAPOL  Sequence  (MAPOLSEQ.DAT) 

For  seamless  integration  of  ZAERO  into  ASTROS,  the  ASTROS  MAPOL  sequence  (file 
MAPOLSEQ.DAT)  has  been  modified.  The  complete  ASTROS*  MAPOL  sequence  listing  is 
presented  in  Appendix  B.  All  changes  to  the  original  ASTROS  (Version  11.0)  MAPOL 
sequence  listing  are  highlighted  in  boldface  text  and  are  demarcated  by  arrows  on  the  right.  For 
a  detailed  description  of  this  file,  please  see  Ref  2. 

3.2.3  Bulk  Data  Template  Definition  (TEMPLATE.DAT) 

In  the  development  of  the  ZAERO  module,  twenty  three  new  bulk  data  entries  were  created. 
Bulk  data  template  definitions  for  these  new  bulk  data  entries  were  added  to  those  of  ASTROS 
(Version  11.0)  and  are  presented  in  Appendix  C.  For  a  detailed  description  of  this  file,  please  see 
Ref  2. 

3.2.4  Relational  Schema  Definition  (RELATION.DAT) 

Schema  definitions  of  all  relational  database  entities  used  by  the  ZAERO  module  have  been 
defined  in  file  RELATION.DAT.  These  relational  entity  schema  definitons  are  presented  in 
Appendix  D.  For  a  detailed  description  of  this  file,  please  see  Ref  2. 

3.2.5  Error  Message  Text  Definition  (SERRMSG.DAT) 

Three  new  error  message  definition  modules  have  been  developed  corresponding  to  the 
following  engineering  application  modules:  AEROGM,  SPLINZ  and  ZAEROM.  These  ZAERO 
error  message  module  definitions  are  presented  in  Appendix  E.  For  a  detailed  description  of  this 
file,  please  see  Ref  2. 
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3.3  The  ZAERO  Software 


Under  the  current  contract,  six  computer  files  containing  all  ZAERO  engineering  application  and 
utility  modules  are  delivered.  These  six  files  along  with  corresponding  file  descriptions  are 
listed  in  Table  1.  These  files  contain  all  of  the  ZAERO  engineering  application  modules. 


Table  1.  Computer  Files  Comprising  ZAERO. 


File  Name 

Description 

File  Type 

aerogm.f 

Code  for  processing  of  the  wing/body 
aerodynamc  geometry  used  by  all  ZAERO 
aerodynamic  methods 

source 

fltqhz.f 

Code  for  processing  of  matrices  required  for 
flutter  analysis,  including  a  newly  developed  K- 
method 

source 

splinz.f 

Code  for  processing  of  spline  matrices 

source 

utility.f 

Additional  math  matrix  in-core  solvers 

' 

source 

zaerom.f 

Steady  and  unsteady  aerodynamics  processing  for 
all  of  ZAERO’s  aerodynamic  methods 

source 

zaerolib.o 

ZONA’s  aerodynamic  kernels 

object 

Note  that  all  source  code  of  ZAERO  developed  and  integrated  into  ASTROS  under  this  contract  is  being 
furnished  to  AFRL.  The  zaerolib.o  code  was  developed  prior  to  the  current  STTR  Phases  I  &  II  and  is 
ZONA  Technology  proprietary.  This  file  is  delivered  in  object  code  format  only  for  specified  computer 
platforms.  To  acquire  updated  object  code  for  different  computer  platforms,  please  contact  ZONA 
Technology  at  (602)  945-9988,  POC:  Darius  Sarhaddi. 


9 


4.0  ZAERO  ENGINEERING  APPLICATION  MODULES 


Nine  new  engineering  application  modules  have  been  developed  as  the  ZAERO  interface  to 
ASTROS.  The  modules  along  with  a  brief  functional  descriptions  are  presented  in  Table  2. 


Table  2.  ZAERO  Engineering  Application  Modules. 


Module  Name 

Function 

AEROGM 

Aerodynamic  Geometry  Module 

CONMOD 

Control  Surface  Modes  Generation 

FLUTQHHZ 

Process  matrix  [AJK]  with  normal  modes  for  flutter 

FLUTSENZ 

To  compute  the  sensitivities  of  active  flutter  constraints  in  the  current 
boundary  condition 

FLUTTRAZ 

Perform  flutter  analysis  in  the  current  boundary  condition  and  to 
evaluate  any  flutter  constraints  if  it  is  an  optimization  boundary 
condition  with  applied  flutter  constraints 

QHHLGENZ 

Compute  the  unsteady  aerodynamic  matricies  in  the  modal  dynamic 
degrees  of  freedom  for  gust  analysis  ' 

SPLINZ 

Generate  the  spline  matrix  that  relates  displacements  and  forces  between 
the  structural  model  and  aerodynamic  models 

SZAERO 

Generate  steady  aerodynamic  AIC  matrices  and  aerodynamic  forces  of 
unit  configurations 

UZAERO 

Unsteady  aeroelastic  analysis  preface 

For  ease  of  understanding,  these  new  engineering  modules  are  documented  in  the  same  format  as 
those  presented  in  the  ASTROS  Programmer’s  Manual  (Ref  2).  The  modules  presented  provide 
the  programmer  a  general  description  of  the  algorithm  and  clearly  defines  the  module’s 
arguments.  In  addition,  the  purpose,  MAPOL  calling  sequence,  FORTRAN  subroutine  name 
and  method  (i.e.  function)  of  the  module  is  presented.  In  cases  of  similar  methods  employed  by 
modules  to  those  of  ASTROS  (Version  11.0),  the  user  is  referred  to  the  ASTROS  Programmer’s 
Manual  (Ref  2). 
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Engineering  Application  Module:  AEROGM 
Entry  Point:  AEROGM 


Purpose: 

ZAERO  geometry  preface  module. 

MAPOL  Calling  Sequence: 

CALL  AEROGM  (  AECOMPZ,  GEOMZA,  AGRIDZ  )  ; 

AECOMPZ  A  relation  describing  aerodynamic  components  (Output) 

GEOMZA  A  relation  describing  the  aerodynamic  boxes  (Output) 

AGRIDZ  A  relation  describing  the  comer  points  of  aerodynamic  boxes  (Output) 

Application  Calling  Sequence: 

None 

Method: 

The  AEROGM  module  processes  all  BODY7  and  CAER07  bulk  data  entries  and  computes  the  geometric  data 
stored  in  the  relational  entites  AECOMPZ,  GEOMZA  and  AGRIDZ.  These  relational  entites  are  to  be  used 
by  the  CONMOD,  SPLINZ,  UZAERO,  and  SZAERO  modules. 

Design  Requirements: 

The  AEROGM  module  is  excuted  in  the  preface  phase.  It  is  the  aerodynamic  geomety  module  for  the 
ZAERO  module. 

Error  Conditions: 

None 
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Engineering  Application  Module:  CONMOD 
Entry  Point:  CONMOD 


Purpose: 

Control  surface  modes  generation. 

MAPOL  Calling  Sequence: 

CALL  CONMOD  (  AECOMPZ,  GEOMZA,  [SCNTLG] ,  [SCNTLK]  ,  [ACNTLG] ,  [ACNTLK] , 
[LMODG] ,  [LMODK]  ) ; 


AECOMP  Z  A  relation  created  by  the  AEROGM  module  describing  aerodynamic  components 

(Character,  Input) 

GEOMZA  A  relation  created  by  the  AEROGM  module  describing  the  aerodynamic  boxes 

(Character,  Input) 

[SCNTLG]  Matrix  whose  rows  contain  the  symmetric  control  surface  modes  defined  at  the  G-set 

D.O.F.  and  columns  are  associated  with  the  AESURFZ  bulk  data  entries.  [SCNTLG] 
is  used  to  compute  the  inertia  loads  by  unit  deflection  angle  of  control  surfaces.  (Output) 

[SCNTLK]  Matrix  whose  rows  contain  the  symmetric  control  surface  modes  defined  at  the  K-set 

D.O.F.  and  columns  are  associated  with  the  AESURFZ  bulk  data  entries.  [SCNTLK] 
is  used  to  compute  the  unsteady  aerodynamic  forces  [AJC]  and  steady  aerodynamic 
forces  [AIRFRC]  by  unit  deflection  angle  of  the  control  surfaces.  (Output) 

[ACNTLG]  Same  as  [SCNTLG]  but  for  antisymmetric  control  surface  modes  (Output) 

[ACNTLK]  Same  as  [SCNTLK]  but  for  antisymmetric  control  surface  modes  (Output) 

[LMODEG]  Matrix  whose  rows  contain  the  load  modes  at  the  G-set  D.O.F.  and  columns  are 

associated  with  the  LOADMOD  bulk  data  entries  (Output) 

[lmodek]  Matrix  whose  rows  contain  the  load  modes  at  the  K-set  D.O.F.  and  columns  are 

associated  with  the  LOADMOD  bulk  data  entries  (Output) 


Application  Calling  Sequence: 

None 

Method: 

First,  the  CONMOD  module  processes  all  AESURFZ  bulk  data  entries  (if  there  are  any)  and  generates  the 
control  surface  modes  due  to  unit  deflection  angle  of  the  control  surfaces  about  the  hinge  lines  in  both  G-set  and 
K-set  D.O.F.  If  TYPE  =  ’SYM’  or  ’ASYM',  the  control  surface  modes  are  stored  in  [SCNTLG]  and 
[SCNTLK],  If  TYPE  =  'ANTISYM',  the  control  surface  modes  are  stored  in  [ACNTLG]  and  [ACNTLK], 

Next,  the  CONMOD  module  processes  all  LOADMOD  bulk  data  entries  (if  there  are  any)  and  generates  the 
load  modes  of  each  LOADMOD.  The  load  modes  are  defined  in  the  G-set  and  K-set  D.O.F.  and  stored  in  each 
row  of  the  matrix  [LMODEG]  and  [LMODEK],  respectively. 
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Design  Requirements: 


None 

Error  Conditions: 
None 
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Engineering  Application  Module:  FLUTQHHZ 
Entry  Point:  FLTQHZ 


Purpose: 

Processes  matrix  [AJK]  with  normal  modes  for  flutter. 

MAPOL  Calling  Sequence: 

CALL  FLUTQHHZ  (  NITER,  BCID,  SUB,  ESIZE(BC),  PSIZE(BC),  [AJK],  [SKJ] , 

[UGTKA]  ,  [PHIA],  USET(BC),  [TMN(BC)],  [GSUBO(BC)],  NGDR, 
AECOMPZ ,  GEOMZA,  [PHIKH]  ,  [QHHLFL  (BC,  SUB)],  OAGRDDSP  )  ,* 


NITER 


Design  iteration  number  (Integer,  Input) 


BCID 


Boundary  condition  number  (Integer,  Input) 


SUB 

ESIZE (BC) 

PSIZE (BC) 

[AJK] 

[SKJ] 

[UGTKA] 


[PHIA] 

USET (BC) 

[TMN (BC) ] 

[GSUBO (BC) ] 

NGDR 


AECOMPZ 


Flutter  subcase  number  (Integer,  Input) 

Number  of  extra  points  for  the  current  boundary  condition 
(Integer,  Input) 

Number  of  physical  degrees  of  freedom  in  the  current  boundary  conditions 
(GSIZE+ESIZE)  (Integer,  Input) 

Unsteady  AIC  matrices  generated  by  the  UZAERO  module  (Input) 

Integration  matrix  generated  by  the  UZAERO  module  (Input) 

The  matrix  of  splining  coefficients  relating  the  aerodynamic  pressures  and  forces  at 
the  structural  grids  and  relating  the  structural  displacements  to  the  streamwise 
slopes  of  the  aerodynamic  boxes.  [UGTKA]  is  reduced  to  the  a-set  DOF  from 
[UGTKG],  (Input) 

Matrix  of  normal  modes  eigenvectors  in  the  a-set  (Input) 

Current  boundary  condition's  unstructured  entity  of  set  definition  masks  (expanded 
to  include  extra  points  and  any  GDR  scalar  points)  (Input) 

Multipoint  constraint  transformation  matrix  for  the  current  boundary  condition 
(Input) 

Static  condensation  or  GDR  reduction  matrix  for  the  current  boundary  condition 
(Input) 

Denotes  dynamic  reduction  in  the  boundary  condition 
=  0  No  GDR 
=  -1  GDR  is  used 
(Input,  Integer) 

A  relation  describing  aerodynamic  components  created  by  the  AEROGM  module 
(Character,  Input) 
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GEOMZA 


A  relation  describing  the  aerodynamic  boxes  created  by  the  AEROGM  module 
(Character,  Input) 

[phikh]  A  modal  tranformation  matrix  that  relates  the  box-on-box  aerodynamic  motions  to 

unit  displacements  of  the  generalized  structural  coordinates  (modes)  (Output) 

[  qhhlfl  ( BC  /  SUB )  ]  A  matrix  containing  the  list  of  h  x  h  unsteady  aerodynamics  matrices  for  the  current 

flutter  subcase  related  to  the  generalized  (modal)  coordinates  and  including  control 
effectiveness  (CONEFFS),  extra  points  and  CONTROL  matrix  inputs,  where  BC 
represents  the  MAPOL  boundaiy  condition  loop  index  number  (Output) 

OAGRDDSP  A  relation  containing  the  structural  eigenvectors  (generalized  DOF)  mapped  to  the 

aerodynamic  boxes  for  those  AIRDISP  requests  in  the  Solution  Control.  These 
terms  are  the  columns  of  PHIKH  put  in  relational  form  to  satisfy  the  output 
requests.  (Output) 


Application  Calling  Sequence: 

None 

Method: 

FLUTQHHZ  is  very  similar  to  the  FLUTQHHL  module  (see  FLUTQHHL  Engineering  Application  Module 
of  ASTROS  Programmer’s  Manual  for  description  of  Method).  There  are  only  two  differences  between  these 
two  modules. 

1 .  FLUTQHHZ  reads  in  [AJK]  and  [S JK]  matrices  and  computes  the  QKK  matrices  as 
[QKK]  =  [SJK]t  [AJK]t 

then  computes  the  generalized  aerodynamic  forces  as 
[QHHLFL]  =  [PHIKH]7  [QKK]  [PHIKH] 

therefore,  the  [QKK]  matrix  is  a  intermidiate  matrix  created  in  FLUTQHHZ.  However,  the  actual 
procedure  to  compute  [QHHLFL]  in  the  FLUTQHHZ  is  described  in  ENTITY  DESCRIPTIONS  of  AJK 

2.  FLUTQHHZ  uses  the  relational  entity  REUNMK  to  retrieve  the  AIC  matrices  of  the  Mach  number  and 
associated  reduced  frequencies  as  defined  in  the  IDMK  of  the  FLUTTER  bulk  data  entry. 
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Engineering  Application  Module:  FLUTSENZ 


Entry  Point:  FLTSTZ 


Purpose: 

To  compute  the  sensitivities  of  active  flutter  constraints  in  the  current  boundary  condition. 


MAPOL  Calling  Sequence: 

CALL  FLUTSENZ  (  NITER,  BC,  SUB,  LOOP,  GSIZEB,  NDV,  GLBDES,  CONST,  GMKCT, 
DKVT,  GMMCT,  DMVI,  CLAMBDA,  LAMBDA,  [QHHLFL (BC,  SUB)], 
[BHHFL (BC,  SUB)],  [KHHFL (BC,  SUB)],  [PHIG(BC)],  [AMAT] , 
AEROZ  ) ; 


NITER 

BC 

SUB 

LOOP 

GSIZEB 

NDV 

GLBDES 

CONST 

GMKTC 


Design  iteration  number  (Integer,  Input) 

Boundary  condition  identification  number  (Integer,  Input) 

Flutter  subcase  number  (Integer,  Input) 

Logical  flag  indicating  whether  more  flutter  subcases  exist  in  the  current  boundary 
condition  (Logical,  Input) 

The  size  of  the  structural  set  (Integer,  Input) 

The  number  of  global  design  variables  (Integer,  Input) 

Relation  of  global  design  vaiables  (Character,  Input) 

Relation  of  constraint  values  (Character,  Input) 

Relation  containing  the  connectivity  data  for  the  DKVI  sensitivty  matrix 
(Character,  Input) 


DKVI 


Unstructured  entity  containing  the  stiffness  design  sensitivity  matrix  in  a  highly 
compressed  format  (Character,  Input) 


GMMCT 


Relation  containing  connectivity  data  for  DMVI  sensitivity  matrix  (Character, 
Input) 


DMVI 


Unstructured  entity  containing  the  mass  design  sensitivity  matrix  in  a  highly 
compressed  format  (Character,  Input) 


CLAMBDA  Relation  containing  results  of  flutter  analysis 

(Character,  Input) 

LAMBDA  Relation  containing  the  output  from  the  real  eigenanalysis  (Character,  Input) 

[qhhlfl  (BC,  sub)]  A  matrix  containing  the  list  of  h  x  h  unsteady  aerodynamics  matrices  for  the  current 

flutter  subcase  related  to  the  generalized  (modal)  coordinates  and  including  control 
effectiveness  (CONEFFS),  extra  points  and  CONTROL  matrix  inputs,  where  BC 
represents  the  MAPOL  boundary  condition  loop  index  number  (Input) 


16 


Modal  mass  matrix  (Input) 

Modal  flutter  damping  matrix  (Input) 

Modal  flutter  stiffness  matrix  (Input) 

Matrix  of  real  eigenvectors  in  the  structural  set  (Input) 

Matrix  of  constraint  sensitivities  (Output) 

Relation  containing  the  definition  of  the  aerodynamic  coordinate  system  (Input) 


[MHHFL (BC,  SUB)] 

[BHHFI*  (BC,  SUB)] 

[KHHFXi  (BC  ,  SUB)] 

[PHIG(BC)  ] 

[AMAT] 

AEROZ 

Application  Calling  Sequence: 

None 

Method: 

FLUTSENZ  is  very  similar  to  the  FLUTSENS  module  (see  FLUTSENZ  Engineering  Application  Module  for 
description  of  Method).  There  is  only  one  difference  between  these  two  modules.  FLUTSENZ  uses  the 
relational  entity  REUNMK  to  retrieve  the  AIC  matrices  of  the  Mach  number  and  associated  reduced 
frequencies  as  defined  in  the  IDMK  of  the  FLUTTER  bulk  data  entry. 


Design  Requirements: 

The  module  assumes  that  at  least  one  flutter  subcase  exists  in  the  current  boundary  condition. 
Error  Conditions: 

None. 
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Engineering  Application  Module:  FLUTTRAZ 
Entry  Point:  FLTTAZ 


Purpose: 

To  perform  flutter  analyses  in  the  current  boundary  condition  and  to  evaluate  any  flutter  constraints  if  the 
current  boundary  condition  is  an  optimization  boundary  condition  with  applied  flutter  constraints. 

MAPOL  Calling  Sequence: 

CALL  FLUTTRAZ  (  NITER,  BCID,  SUB,  [QHHLFL (BC,  SUB)],  LAMBDA,  HSIZE(BC), 
ESIZE(BC),  GMKCT,  [MHHFL (BC,  SUB)],  [BHHFL (BC,  SUB)], 
KHHFL (BC,  SUB)],  CLAMBDA,  AEROZ  ); 


NITER 

Design  iteration  number  (Integer,  Input) 

BCID 

User  defined  boundary  condition  identification  number  (Integer,  Input) 

SUB 

Flutter  subcase  number  (ranging  from  1  to  the  total  number  of  FLUTTER 
subcases)  of  the  subcase  to  be  processed  in  this  pass  (Integer,  Input) 

[QHHLFL (BC, 

SUB)  ] 

Matrix  list  of  modal  unsteady  aerodynamic  coefficients  (Input) 

LAMBDA 

Relational  entity  containing  the  output  from  the  real  eigenanalysis 
(Character,  Input) 

HSIZE (BC) 

Number  of  modal  dynamic  degrees  of  freedom  in  the  current  boundary  condition 
(Input) 

ESIZE (BC) 

The  number  of  extra  point  degrees  of  freedom  in  the  current  boundary  condition 
(Integer,  Input) 

[MHHFL (BC, 

SUB)] 

Modal  mass  matrix  (Input) 

[BHHFL  (BC, 

SUB)] 

Modal  flutter  damping  matrix  (Input) 

[KHHFL (BC, 

SUB)] 

Modal  flutter  stiffness  matrix  (Input) 

CLAMBDA 

Relation  containing  results  of  flutter  analyses  (Character,  Input) 

AEROZ 

Relational  entity  of  the  configuration  parameters  defined  by  the  AEROZ  bulk  data 
entry  (Character,  Input) 

Application  Calling  Sequence: 

None 

Method: 


FLUTTRAZ  is  very  similar  to  the  FLUTTRAN  module  (see  FLUTTRAN  Engineering  Application  Module 
of  the  ASTROS  Programmer’s  Manual  for  a  description  of  the  Method).  The  difference  is  that  rather  than 
processing  the  UNMK  unstructured  entity,  FLUTTRAZ  reads  the  relational  entity  REUNMK  for  retrieving 
the  Mach  number  and  reduced  frequency  pairs. 
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Design  Requirements: 

The  module  assumes  that  at  least  one  flutter  subcase  exists  in  the  current  boundary  condition. 

Error  Conditions: 

Referenced  data  on  FLUTTER  entries  that  do  not  exist  on  the  database  are  flagged  and  the  execution  is 
terminated. 
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Engineering  Application  Module:  QHHLGENZ 
Entry  Point:  QHJGEN 


Purpose: 

To  compute  the  unsteady  aerodynamic  matrices  in  the  modal  dynamic  degrees  of  freedom  for  gust  analysis. 
MAPOL  Calling  Sequence: 

CALL  QHHLGENZ  (  BC,  ESIZE(BC),  [AJK] ,  [SKJ] ,  [QGK],  [UGTKA] ,  [PHIA] , 
[PHIKH],  [QHHL] ,  [QHJL] ,  AEROZ  )? 


BC 

ESIZE(BC) 

[AJK] 

[SKJ] 

[QGK] 

[UGTKA] 


[PHIA] 

[PHIKH] 

[QHHL] 

[QHJL] 

AEROZ 


Boundary  condition  identification  number  (Integer,  Input) 

The  number  of  extra  point  degrees  of  freedom  in  the  boundary  condition 
(Integer,  Input) 

Unsteady  AIC  matrices  generated  by  the  UZAERO  module  (Input) 

Integration  matrix  generated  by  the  UZAERO  module  (Input) 

A  matrix  contaning  the  intermediated  gust  vectors  generated  by  the  UZAERO 
module  (Input) 

The  matrix  of  splining  coefficients  relating  the  aerodynamic  pressures  and  forces  at 
the  structural  grids  and  relating  the  structural  displacements  to  the  streamwise 
slopes  of  the  aerodynamic  boxes  reduced  to  the  a-set  DOF.  Generated  by  the 
SPLINZ  module.  (Input) 

Matrix  of  normal  modes  eigenvectors  in  the  a-set  (Input) 

A  modal  tranformation  matrix  that  relates  the  box-on-box  aerodynamic  motions  to 
unit  displacements  of  the  generalized  structural  coordinates  (modes)  (Output) 

A  matrix  containing  the  list  of  h  x  h  unsteady  aerodynamics  matrices  of  each 
reduced  frequency  for  the  current  gust  subcase  related  to  the  generalized  (modal) 
coordinates  (Output) 

A  matrix  containing  the  list  of  h  x  1  unsteady  hormonic  gust  vector  of  each  reduced 
frequency  (Output) 

A  relation  containing  the  definition  of  the  aerodynamic  coordinate  system  (Input) 


Application  Calling  Sequence: 

None 

Method: 
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QHHLGENZ  is  very  similar  to  the  QHHLGEN  module  (see  QHHLGEN  Engineering  Application  Module  of 
the  ASTROS  Programmer’s  Manual  for  a  description  of  the  Method).  There  are  only  two  differences  between 
these  two  modules. 

1 .  QHHLGENZ  reads  in  [AJK]  and  [SJK]  matrices  and  computes  the  QKK  matrices  as 
[QKK]  =  [SJK]t  [AJK)t 

then  computes  the  generalized  aerodynamic  forces  as 
[QHHL]  =  [PHIKH]7  [QKK]  [PHIKH] 

therefore,  the  [QKK]  matrix  is  a  intermediate  matrix  created  in  QHHGENZ. 

2.  The  gust  vector  is  computed  as: 

[QHJL]  =  [PHIKH]t  [QGK]  exp(i*k/(  REFC  /2.)*x0) 

where  k  is  the  reducred  frequency. 

REFC  is  the  reference  chord. 

and  x0  is  the  location  of  thereference  plane  defined  in  the  GUST  bulk  entry. 


3.  QHHLGENZ  uses  the  relational  entity  REUNMK  to  retrieve  the  AIC  matrices  of  the  Mach  number  and 
associated  reduced  frequencies  as  defined  in  the  IDMK  of  the  GUST  bulk  data  entry. 
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Engineering  Application  Module:  SPLINZ 


Entry  Point:  SPLINZ 

Purpose: 

Generates  the  spline  matrix  that  relates  displacements  and  forces  between  the  structural  model  and  the  ZAERO 
aerodynamic  model. 

MAPOL  Calling  Sequence: 

CALL  SPLINZ-'  (  GSIZEB,  GEOMZA,  AECOMPZ,  AEROZ,  [UGTKG]  ); 


GSIZEB 

GEOMZA 


AECOMPZ 

AEROZ 


The  number  of  degrees  of  freedom  in  the  set  of  all  structural  GRID  and  SCALAR  points 
(Integer,  Input) 

A  relation  describing  the  aerodynamic  boxes  for  the  ZAERO  model.  The  location  of  the 
box  centroid,  normal  and  pitch  moment  axis  are  given.  It  is  used  in  splining  the 
aerodynamics  to  the  structure  and  to  map  responses  back  to  the  aerodynamic  boxes. 
(Character,  Input) 

A  relation  describing  aerodynamic  components  for  the  ZAERO  model.  It  is  used  in 
splining  the  aerodynamics  to  the  structural  model.  (Character,  Input) 

A  relation  created  by  the  AEROZ  bulk  entry  (Character,  Input) 


[UGTKG]  Spline  matrix  relating  the  structural  displacements  at  G-set  d.o.f  to  the  displacements 

ans  slopes  at  the  K-set  d.o.f  of  the  aerodynamic  boxes.  (Output) 


Application  Calling  Sequence: 

None 

Method: 


The  SPLINZ  module  is  veiy  similar  to  the  SPLINES  and  SPLINEU  modules  (see  ASTROS  Programmer’s 
Manual),  except: 

1.  It  only  relates  the  aerodynamic  boxes  associated  with  BODY7  and  CAER07  to  the  structural  model. 

2.  In  addition  to  the  SPLINE1,  SPLINE2  and  ATTACH  bulk  data  entries,  it  also  reads  the  SPLINE3  bulk 
data  entry  for  3D  spline. 

3 .  The  spline  matrix  is  used  for  both  the  steady  and  unsteady  aeroelastic  modules. 

The  spline  matrix  [UGTKG]  is  used  for  both  steady  aeroelastic  analysis  and  dynamic  aeroelastic  analysis.  For 
the  definition  of  K-set  d.o.f.,  please  see  entity  descriptions  of  entity  UGTKG. 

Design  Requirements: 

None 

Error  Conditions: 

1.  Each  aerodynamic  box  may  appear  on  only  one  SPLINE1,  SPLINE2,  SPLINE3  or  ATTACH  entry, 
although  not  all  boxes  need  appear.  Missing  boxes  will  not  influence  the  aeroelastic  response. 
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2.  Missing  structural  grids  or  aerodynamic  elements  appearing  on  the  spline  definitions  will  be  flagged. 
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Engineering  Application  Module:  SZAERO 


Entry  Point:  SZAERO 


Purpose: 

Generates  steady  aerodynamic  AIC  matrices  and  aerodynamic  forces  of  unit  configuration  parameters  by  the 
ZAERO  module. 


MAPOL  Calling  Sequence: 

CALL  SZAERO'’  (  [AJK]  ,  MINDEX,  LOOP,  AECOMPZ,  GEOMZA,  AGRIDZ,  STABCF , 
[AICMAT (MINDEX)  1  ,  [AAICMAT (MINDEX) ] ,  [AIRFRC (MINDEX)  ]  , 
[SCNTLK] ,  [ACNTLK]  ) ; 


AJK 

MINDEX 

LOOP 

AECOMPZ 

GEOMZA 

AGRIDZ 

STABCF 


[AICMAT (MINDEX)  ] 


Unsteady  AIC  matrices  generated  by  the  UZAERO  module  (Input) 

Mach  number  index  for  the  current  pass.  Controls  which  Mach  number/symmetiy 
conditions  will  be  processed  in  this  pass  by  SZAERO.  One  pass  for  each  unique  Mach 
number  will  be  performed  with  MINDEX  incrementing  by  one  until  SZAERO  returns 
LOOP  =  .FALSE.  (Input) 

A  logical  flag  set  by  SZAERO  to  indicate  whether  additional  MINDEX  subscripts  are 
needed  to  complete  the  processing  of  all  Mach  number/symmetiy  conditions  on  all  the 
TRIM  bulk  data  entries.  One  pass  for  each  unique  Mach  number  will  be  performed 
with  MINDEX  incrementing  by  one  until  SZAERO  returns  LOOP  =  .FALSE.  (Output) 

A  relation  created  by  the  AEROGM  module  describing  aerodynamic  components 
(Character,  Input) 

A  relation  created  by  the  AEROGM  module  describing  the  aerodynamic  boxes 
(Character,  Input) 

A  relation  created  by  the  AEROGM  module  describing  the  comer  points  of 
aerodynamic  boxes  (Character,  Input) 

A  relation  of  rigid  aerodynamic  stability  coefficients  for  unit  configuration  parameters. 
The  coefficients  are  stored  in  STABCF  and  the  corresponding  distributed  forces  are 
stored  in  [AIRFRC(MINDEX)] .  The  STABCF  relation  is  used  to  pick  the  appropriate 
rigid  loads  from  [ABRFRC(MINDEX)]  when  performing  the  aeroelastic  trim  as  well  as 
for  retrieving  the  RIGID/FLEXIBLE  stability  coefficients  for  each  configuration 
parameters.  (Output) 

Matrix  containing  the  steady  aerodynamic  influence  coefficients  for  symmetric  flight 
condition  (Output) 


[AAICMAT  (MINDEX)  ]  Same  as  [AICMAT(MINDEX)]  but  for  antisymmetric  flight  condition  (Output) 

[AIRFRC  (MINDEX)  ]  Matrix  containing  the  steady  aerodynamic  distributed  forces  for  unit  configuration 

parameters  for  the  current  Mach  number  index.  If  both  symmetric  and  antisymmetric 
conditions  exist  for  the  Mach  number,  both  sets  of  configuration  parameters  will  coexist 
in  [AIRFRC].  (Output) 
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[SCNTLK] 


[ACNTLK] 


Matrix  (created  by  the  CONMOD  module)  whose  rows  contain  the  symmetric  control 
surface  modes  defined  at  the  K-set  D.O.F.  and  columns  are  associated  with  the 
AESURFZ  bulk  data  entries.  [SCNTLK]  is  used  to  compute  the  aerodynamic  stability 
coefficients  and  distributed  forces  contained  in  STABCF  and  [AIRFRC]  by  unit 
deflection  of  control  surfaces.  (Input) 

Same  as  [SCNTLK]  but  for  antisymmetric  control  surface  modes. 


Application  Calling  Sequence: 

None 

Method: 

The  SZAERO  module  is  very  similar  to  the  STEADY  module  (see  ASTROS  Programmer  s  Manual)  except 
that  SZAERO  processes  the  aerodymanic  geometry  generated  by  the  AEROGM  module  and  computes  the 
AIC  matrices  from  ZONA6,  ZONA7,  ZTAIC,  and  ZONA7U  methods  for  wing-body  configurations.  The 
output  data  format  of  SZAERO  is  identical  to  that  of  the  STEADY  module  so  that  the  output  data  can  be 
directly  used  by  the  downstream  steady  aeroelatic  trim  modules. 

The  steady  AIC  matrices  are  obtained  by  taking  the  real  part  of  the  lowest  reduced  frequency  of  the  matrix 
[AJK],  where  [AJK]  is  generated  by  UZAERO  module. 

Design  Requirements: 

See  STEADY  module. 

Error  Conditions: 

See  STEADY  module. 
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Engineering  Application  Module:  UZAERO 
Entry  Point:  UZAERO 


Purpose: 

Unsteady  aeroelastic  analysis  preface  by  ZAERO  module. 

MAPOL  Calling  Sequence: 

CALL  UZAERO  (  AECOMPZ,  GEOMZA,  AGRIDZ,  [AJK] ,  [AJC] ,  [AJL]  [QGK] ,  [SKJ] , 
[SCNTLK] ,  [ACNTLK]  ,  [LMODEK]  ) j 


AECOMPZ 

GEOMZA 

AGRIDZ 

[AJK] 

[AJC] 

[AJL] 

[QGK] 

[SKJ] 

[SCNTLK] 

[ACNTLK] 


A  relation  created  by  the  AEROGM  module  describing  aerodynamic  components 
(Character,  Input) 

A  relation  created  by  the  AEROGM  module  describing  the  aerodynamic  boxes 
(Character,  Input) 

A  relation  created  by  the  AEROGM  module  describing  the  comer  points  of 
aerodynamic  boxes  (Character,  Input) 

Matrix  containing  the  transposed  unsteady  aerodynamic  influence  coefficient  (AIC) 
matrices  for  all  Mach,  and  reduced  frequency  pairs  defined  in  all  MKAEROZ  bulk  data 
entries  (Output) 

Matrix  containing  the  unsteady  pressure  in  J-set  D.O.F.  on  aerodynamic  boxes  due  to 
the  control  surface  modes  for  all  Mach  number  and  reduced  frequency  pairs  defined  in 
all  MKAEROZ  bulk  data  entries  (Output) 

Matrix  containing  the  unsteady  pressure  in  J-set  D.O.F.  on  aerodynamic  boxes  due  to 
the  load  modes  for  all  Mach  number  and  reduced  frequency  pairs  defined  in  all 
MKAEROZ  bulk  data  entries  (Output) 

Gust  matrix  containing  the  intermediated  gust  force  vectors  at  the  K-set  D.O.F.  for  all 
Mach  number  and  reduced  frequency  pairs  defined  in  all  MKAEROZ  bulk  data  entries 
(Output) 

Integration  matrix  to  take  pressures  in  J-set  D.O.F.  to  forces  in  K-set  D.O.F  (Output) 

Matrix  (created  by  the  CONMOD  module)  whose  rows  contain  the  symmetric  control 
surface  modes  defined  at  the  K-set  D.O.F.  and  columns  are  associated  with  the 
AESURFZ  bulk  data  entries.  [SCNTLK]  is  used  to  compute  the  unsteady  aerodynamic 
forces  [AJC]  by  unit  deflection  of  control  surfaces.  (Input) 

Same  as  [SCNTLK]  but  for  antisymmetric  control  surface  modes  (Input) 


[LMODEK]  Matrix  (created  by  CONMOD  module)  whose  rows  contain  load  modes  defined  at  tire 

K-set  D.O.F.  and  columns  are  associated  with  the  LOADMOD  bulk  data  entries. 
[LMODEK]  is  used  to  compute  the  unsteady  aerodynamic  forces  [AJL]  of  the  load 
modes.  (Input) 
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Annlication  Calling  Sequence: 


None 


Method: 


The  UZAERO  module  first  reads  in  the  relational  entity  AEROZ  to  check  the  symmetric  condition  of  the 
aerodynamic  geomertiy.  If  XZSYM  =  'YES',  the  symmetric  AIC  and  antisymmetric  AIC  matriceswill  be 
generated  regardless  of  whether  they  are  required  for  the  downstream  unsteady  aeroelastic  modules^  The  AIL 
matrices  are  generated  according  to  the  input  sequence  of  MKAEROZ  bulk  data  entries.  Each  MKAEROZ 
will  produce  a  set  of  AIC  matrices  at  the  given  Mach  number  and  its  associated  list  of  reduced  frquencies.  The 
geometric  data  of  the  aerodynamic  model  is  based  on  the  relations  AECOMPZ,  GEOMZA,  and  AGRIDZ. 

The  AIC  matrices  of  Mach,  reduced  frequency,  symmetry  pairs  are  stored  in  [AJK],  [AJC]  is  computed  by: 
[AJC]  =  [AJK]t[  [SCNTLK],  [ACNTLK]  ] 


pre-mutiplied  [AJC]  by  [SKJ]T  will  yield  the  control  surface  aerodynamic  forces  at  K-set  D.O.F. 
The  intermediated  gust  force  vector  [QGK]  is  computed  by: 


[QGKMSKjf  [AJK f  (exp(-i*K*X/(REFC/2.)} 

where  K  is  the  reduced  frequency. 

X  is  the  aerodynamic  box  control  point  locations. 
REFC  is  the  reference  chord. 


[AJL]  is  computed  by: 

[AJL]  =  [AJK]T[LMODEK] 

pre-mutiplied  [AJL]  by  [SKJ]T  will  yield  the  load  mode  aerodynamic  forces  at  K-set  D.O.F. 


The  method  to  retrieve  the  [AJK]  and  [AJC],  and  [AJL]  matrices  of  a  given  Mach  number,  reduced  frquency, 
and  symmetry  pair  is  described  in  relational  entity  REUNMK. 

Design  Requirements: 

Unlike  the  AMP  module,  the  UZAERO  module  does  not  generate  the  [QKK]  matrix. 

The  [QKK]  matrix  is  computed  by  the  FLUTQHHZ  module  from: 

[QKK]  =  [SKJ]T[AJK]T 

The  unsteady  forces  due  to  control  surface  modes  (defined  as  [QKC])  can  be  computed  by. 

[QKC]  =  [SKJ]t[AJC] 

Error  Conditions: 

None 
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5.0  ZAERO  DATABASE  ENTITY  DESCRIPTIONS 


To  facilitate  the  communication  of  data  among  the  ZAERO  engineering  application  modules, 
fifteen  new  database  entities  (11  Matrix  and  4  Relational)  are  created  and  are  presented  in 
Table  3. 


Table  3.  ZAERO  Database  Entities. 


Entity  Name 

Description 

Type 

AJC 

Basic  name  of  the  unsteady  aerodynamic  matrix  containing  unsteady 
pressure  coefficients  at  J-set  d.o.f.  due  to  unit  control  surface 
deflections. 

Matrix 

QGK 

Basic  name  of  die  unsteady  aerodynamic  gust  force  vector 
containing  the  intermediated  unsteady  forces  at  K-set  d.o.f 

Matrix 

SKJ 

Integration  matrix  relating  the  unsteady  aerodynamic  pressure 
coefficients  at  the  J-set  d.o.f.  to  the  unsteady  aerodynamic  forces  at 
the  K-set  d.o.f. 

Matrix 

AJK 

Basic  name  of  the  unsteady  aerodynamic  AIC  matrix  relating  the 
displacements  at  the  K-set  do.f  to  die  pressure  coefficients  at  the  J- 
set  d.o.f. 

Matrix 

ACNTLK 

Displacements  and  slopes  defined  at  K-set  d.o.f.  due  to  unit  anti¬ 
symmetric  control  surface  deflection. 

Matrix 

SCNTLK 

Translational  and  rotational  displacements  defined  at  G-set  d.o.f.  due 
to  unit  symmetric  control  surface  deflection. 

Matrix 

SCNTLG 

Displacements  and  slopes  defined  at  K-set  d.o.f.  due  to  unit 
symmetric  control  surface  deflection. 

Matrix 

ACNTLG 

Translational  and  rotational  displacements  defined  at  G-set  d.o.f.  due 
to  unit  anti-symmetric  control  surface  deflection. 

Matrix 

LMODEG 

Translational  and  rotational  displacements  defined  at  G-set  d.o.f  due 
to  the  load  modes  specified  in  bulk  entries  LOADMOD. 

Matrix 

LMODEK 

Displacements  and  slopes  defined  at  K-set  d.o.f  due  to  the  load 
modes  specified  in  bulk  entries  LOADMOD. 

Matrix 

UGTKG 

Spline  matrix  relating  the  structural  displacements  at  G-set  d.o.f  to 
the  displacements  and  slopes  at  the  K-set  d.o.f  of  the  aerodynamic 
boxes,  but  stored  in  the  transposed  form. 

Matrix 

AECOMPZ 

Contains  data  on  the  aerodynamic  components  in  the  CAER07  and 
BODY7  bulk  entries. 

Relation 

GEOMZA 

Contains  data  on  the  aerodynamic  boxes  of  the  CAER07  and 
BODY7  bulk  entries. 

Relation 

AGRIDZ 

Contains  data  of  the  comer  grid  points  on  the  CAER07  and 
BODY7  boxes. 

Relation 

REUNMK 

Contains  the  relations  between  the  unsteady  aerodynamic  matrices 
generated  by  the  UZAERO  module  to  the  bulk  entries  MKAEROZ. 

Relation 

The  ZAERO  database  entities  are  documented  similar  to  those  in  the  ASTROS  Programmer’s 
Manual  (Ref  2).  A  Usage  section  has  been  added  to  aide  and  clearly  define  to  the  programmer 
data  stored  on  each  database  entitiy. 
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Entity: 

Entity  Type: 
Description: 

Matrix  Form: 

Created  by: 
Usage: 


AJC 

MATRIX 

Basic  name  of  the  unsteady  aerodynamic  matrix  containing  unsteady  pressure 
coefficients  at  J-set  d.o.f.  due  to  unit  control  surface  deflections.  AJC  is  used  during 
the  aeroservoelastic  analysis. 

Complex  matrix  with  number  of  columns  being  equal  to  the  number  of  control 
surfaces  and  J-set  number  of  rows  being  equal  to  the  number  of  J-set  d.o.f. 

UZAERO 


AJC  contains  a  three  characters  string  'AJC'  defined  by  MAPOL.  To  retrieve  the  AJC  of  a  given 
Mach  number,  reduced  frequency  pair  and  symmetry  condition,  please  see  entity  REUNMK. 

The  actual  matrix  name  stored  on  the  data  base  is  AJ Csjjjj, 
where  s='S'  for  symmetric  or  asymmetric  case,  -  A’  for  antisymmetric  case. 
ii=index  of  Mach  number. 
jj=index  of  reduced  frequency. 

The  matrix  QKC  defined  as  the  unsteady  aerodynamic  forces  due  to  unit  control  surface  deflections 
at  K-set  is  computed  by: 

[QKC]=[SKJ]T[AJCsiijj] 

The  unsteady  generalized  aerodynamic  control  forces  [QHCLFL]  is  computed  by: 

[QHCLFL]=[PHIKH]T[QKC] 

where  [PHEKH]  is  the  modal  matrix  at  K-set  d.o.f. 

Therefore  the  number  of  rows  of  [QHCLFL]  is  the  number  of  modes.  Each  column  of  [QHCLFL] 
corresponds  to  the  generalized  aerodynamic  control  forces  due  to  each  of  the  bulk  entry  AESURFZ 
with  TYPE=SYM  for  AJCsiijj  and  TYPE=ANTISYM  for  AICaiijy. 
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Entity: 

Entity  Type: 
Description: 

Matrix  Form: 
Created  by: 
Usage: 


QGK 

MATRIX 

Basic  name  of  the  unsteady  aerodynamic  gust  force  vector  containing  the 
intermediated  unsteady  forces  at  K-set  d.o.f.  QGK  is  used  by  the  aeroservoelastic 
gust  analysis. 

Complex  matrix  with  one  column  and  K-set  number  of  rows. 

UZAERO 


QGK  contains  a  three  character  string  'QGK'  defined  by  MAPOL.  To  retrieve  the  QGK  of  a  given 
Mach  number,  reduced  frequency  pair  and  symmetry  condition,  please  see  entity  REUNMK. 

The  actual  matrix  name  stored  on  the  data  base  is  QGKgjjjj, 
where  s='S'  for  symmetric  or  asymmetric  case,  -  A'  for  antisymmetric  case. 
ii=index  of  Mach  number. 
jj=index  of  reduced  frequency. 

The  actual  gust  generalized  forces  in  modal  space  is  computed  by: 


[QGKgjjjj]  =  [QGKsiijj]  *  exp(i*k*x0/(REFC/2.)) 


where  x0  is  the  location  of  the  reference  plane  defined  in  the  bulk  entry  GUST, 
k  is  the  corresponding  reduced  frequency, 
and  REFC  is  the  reference  chord  defined  in  bulk  entry  AEROZ. 
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Entity: 

Entity  Type: 
Description: 

Matrix  Form: 

Created  by: 
Usage: 


SKJ 

MATRIX 

Integration  matrix  relating  the  unsteady  aerodynamic  pressure  coefficients  at  the  J- 
set  d.o.f.  to  the  unsteady  aerodynamic  forces  at  the  K-set  do.f. 

Real  matrix  with  J-set  number  of  column  and  K-set  number  of  rows  but  stored  in  the 
transposed  form. 

UZAERO 

SKJ  depends  on  the  geometry  of  the  aerodynamic  model  only  and  is  independent  of  Mach  number 
and  reduced  frequency. 


31 


Entity: 

AJK 

Entity  Type: 

MATRIX 

Description: 

Basic  name  of  the  unsteady  aerodynamic  AIC  matrix  relating  the  displacements  at 
the  K-set  d.o.f  to  the  pressure  coefficients  at  the  J-set  d.o.f. 

Matrix  Form: 

Complex  matrix  with  K-set  number  of  columns  and  J-set  number  of  rows  but  stored 
in  the  transposed  form. 

Created  by: 

UZAERO 

Usage: 

AJK  contains  a  three  characters  string  'AJK'  defined  by  MAPOL.  To  retrieve  the  AJK  of  a  given 
Mach  number,  reduced  frequency  pair  and  symmetry  condition,  please  see  entity  REUNMK. 

The  actual  matrix  name  stored  on  the  data  base  is  AJKgjjjj, 
where  s- S’  for  symmetric  or  asymmetric  case,  -  A’  for  antisymmetric  case. 
ii=index  of  Mach  number. 
jj=ndex  of  reduced  frequency. 

The  matrix  QKK  relating  displacements  at  K-set  to  unsteady  aerodynamic  forces  at  K-set  is 
computed  by: 


[QKK]=[SKJ]T[AJKsiiij]T 


The  unsteady  generalized  aerodynamic  forces  [QHHLFL]  is  computed  by: 

[QHHLFL]=[PHIKH] T  [QKK][PHIKH] 
where  [PHIKH]  is  the  modal  matrix  at  K-set  d.o.f. 

However,  in  the  FLUTQHHZ  module  and  QHHLGENZ  module,  [QHHLFL]  is  computed  by  the 
following  procedure: 

The  unsteady  aerodynamic  pressure  coefficients  [CP]  at  J-set  d.o.f.  is  first  obtained 
[CP]=[AJKsjjjj]T[PHIKH] 

Then,  the  aerodynamic  forces  at  K-set  d.o.f  are  computed: 

[FORCE]=[SKJ]t[CP] 

Finally,  the  generalized  aerodynamic  forces  are  computed: 

[QHHLFL]=[PHIHK]t[FORCE] 

Matrices  [CP]  and  [FORCE]  are  deleted  after  [QHHLFL]  is  obtained. 
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ACNTLK 


Entity: 

Entity  Type: 
Description: 

Matrix  Fonn: 

Created  by: 
Usage: 

1. 


MATRIX 

Displacements  and  slopes  defined  at  K-set  d.o.f.  due  to  unit  anti-symmetric  control 
surface  deflection.  Each  column  is  corresponding  to  each  AESURFZ  bulk  entry 
with  TYPE=ANTISYM. 

Real  matrix  with  K-set  number  of  rows  and  number  of  columns  being  equal  to  the 
number  of  AESURFZ  bulk  entries  with  TYPE=ANTISYM. 

CONMOD 


ACNTLK  is  used  by  both  UZAERO  and  SZAERO  modules. 

For  the  UZAERO  module,  it  generates  the  [AJC]  matrix  for  all  MKAEROZ  bulk  entries  by: 
[AJC]=[AJK]t[ACNTLK] 

For  the  SZAERO  module,  it  generates  the  matrix  [ABRFRC]  and  the  aerodynamic  stability 
coefficients  of  control  surfaces  (stored  in  relation  STABCF)  for  each  TRIM  bulk  entry  by: 

[AIRFRC]=[AAICMAT]t[ACNTLK] 

ACNTLK  does  not  exist  if  there  are  no  AESURFZ  with  TYPE=ANTISYM. 
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SCNTLK 


Entity: 

Entity  Type: 
Description: 

Matrix  Form: 

Created  by: 
Usage: 

1. 


MATRIX 

Displacements  and  slopes  defined  at  K-set  d.o.f.  due  to  unit  symmetric  control 
surface  deflection.  Each  column  is  corresponds  to  each  AESURFZ  bulk  entry  with 
TYPE=SYM  or  ASYM. 

Real  matrix  with  K-set  number  of  rows  and  number  of  columns  being  equal  to  the 
number  of  AESURFZ  bulk  entries  with  TYPE=SYM  or  ASYM 

CONMOD 


SCNTLK  is  used  by  both  the  UZAERO  and  SZAERO  modules. 

For  UZAERO  module,  it  generates  the  [AJC]  matrix  for  all  MKAEROZ  bulk  entries  by: 

[AJC]=[AJK]T[SCNTLK] 

For  the  SZAERO  module,  it  generates  the  matrix  [AIRFRC]  and  the  aerodynamic  stability 
coefficients  of  control  surfaces  (stored  in  relation  STABCF)  for  each  TRIM  bulk  entry  by: 

[AIRFRC]=[AICMAT]T[SCNTLK] 

SCNTLK  does  not  exist  if  there  are  no  AESURFZ  with  TYPE=SYM  or  ASYM. 
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Entity: 

SCNTLG 

Entity  Type: 

MATRIX 

Description: 

Translational  and  rotational  displacements  defined  at  G-set  d.o.f.  due  to  unit 
symmetric  control  surface  deflection.  Each  column  corresponds  to  an  AESURFZ 
bulk  entry  with  TYPE=SYM  or  ASYM. 

Matrix  Form: 

Real  matrix  with  G-set  number  of  rows  and  number  of  columns  being  equal  to  the 
number  of  AESURFZ  bulk  entries  with  TYPE=SYM  or  ASYM. 

Created  by: 

CONMOD 

Usage: 

1.  SCNTLG  is  used  to  compute  the  inertial  matrix  of  the  control  surfaces  in  modal  space  by: 
[PHIG]t[MGG][SCNTLG]  in  G-set  d.o.f. 


or 

[PHIA]t[MAA] [SCNTLA]  in  A-set  d.o.f.  Where  [SCNTLA]  can  be  computed  by  the  reduction 
of  [SCNTLG]  from  G-set  to  A-set. 

2.  SCNTLG  does  not  exist  if  there  are  no  AESURFZ  with  TYPE=SYM  or  ASYM. 
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Entity: 

ACNTLG 

Entity  Type: 

MATRIX 

Description: 

Translational  and  rotational  displacements  defined  at  G-set  d.o.f.  due  to  unit  anti¬ 
symmetric  control  surface  deflection.  Each  column  corresponds  to  an  AESURFZ 
bulk  entry  with  TYPE=ANTISYM. 

Matrix  Form: 

Real  matrix  with  G-set  number  of  rows  and  number  of  columns  being  equal  to  the 
number  of  AESURFZ  bulk  entries  with  TYPE=ANTISYM. 

Created  by: 

CONMOD 

Usage: 

1.  ACNTLG  is  used  to  compute  the  inertial  matrix  of  the  control  surfaces  in  modal  space  by: 
[PHIG]t[MGG][ACNTLG]  in  G-set  d.o.f. 


or 

[PHIA]t[MAA][ACNTLA]  in  A-set  d.o.f.  Where  [ACNTLA]  can  be  computed  by  the 
reduction  of  [ACNTLG]  from  G-set  to  A-set. 

2.  ACNTLG  does  not  exist  if  there  are  no  AESURFZ  with  TYPE=ANTISYM. 
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Entity: 

Entity  Type: 
Description: 

Matrix  Form: 

Created  by: 
Usage: 


LMODEG 

MATRIX 

Translational  and  rotational  displacements  defined  at  G-set  d.o.f  due  to  the  load 
modes  specified  in  bulk  entries  LOADMOD. 

Real  matrix  with  G-set  number  of  rows  and  number  of  columns  being  equal  to  the 
number  of  LOADMOD  bulk  entries. 

CONMOD 


LMODEG  is  used  to  compute  the  sectional  forces  or  moments  at  the  structural  grid  points  defined 
by  the  LOADMOD  bulk  entries.  LMODEG  can  be  reduced  from  G-set  to  A-set  d.o.f.  by  the  A- 
set  reduction  procedures. 

LMODEG  does  not  exist  if  there  are  no  LOADMOD  bulk  data  entries. 
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LMODEK 


Entity: 

Entity  Type: 
Description: 

Matrix  Form: 

Created  by: 
Usage: 


MATRIX 

Displacements  and  slopes  defined  at  K-set  d.o.f  due  to  the  load  modes  specified  in 
bulk  entries  LOADMOD. 

Real  matrix  with  K-set  number  of  rows  and  number  of  columns  being  equal  to  the 
number  of  LOADMOD  bulk  entries. 

CONMOD 


LMODEK  is  used  to  compute  the  sectional  forces  or  moments  at  the  aerodynamic  boxes  defined 
by  the  LOADMOD  bulk  entries. 

LMODEK  does  not  exist  if  there  are  no  LOADMOD  bulk  data  entries. 
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Entity: 

Entity  Type: 
Description: 

Matrix  Form: 
Created  by: 
Usage: 


UGTKG 

MATRIX 

Spline  matrix  relating  the  structural  displacements  at  G-set  d.o.f  to  the  displacements 
and  slopes  at  the  K-set  d.o.f  of  the  aerodynamic  boxes,  but  stored  in  the  transposed 
form. 

Real  matrix  with  G-set  number  of  rows  and  K-set  number  of  columns. 

SPLINZ 


1.  The  definition  of  K-set  d.o.f.  is: 

For  each  aerodynamic  box,  six  do.f.'s  are  assigned  and  defined  as: 

{Tl,  T2,  T3,  d(Tl)/dx,  d(T2)/dx,  d(T3)/dx},  where  Tl,  T2,  and  T3  are  the  displacements  at  the 
centroid  of  the  aerodynamic  box  along  x,  y,  and  z  directions,  respectively.  d(  )/dx  denotes  as  the 
slope  of  ( )  with  respect  to  the  free  stream  direction  (the  x-axis  of  the  aerodynamic  coordinates). 

Therefore,  for  N  number  of  aerodynamic  boxes  (number  of  J-set  d.o.f.'s  =  N),  number  of  K-set 
d.o.f.'s  =  6  *  N. 

2.  [UGTKG]  can  be  reduced  to  [UGTKA]  by  the  A-set  reduction  procedures,  where  [UGTKA]  is 
used  to  transform  the  displacements  at  A-set  to  K-set  and  transform  the  aerodynamic  forces  from 
K-set  to  A-set  by  the  transposed  of  [UGTKA], 

3.  [UGTKG]  is  computed  according  to  the  SPLINE1,  SPLINE2,  SPLINE3,  and  ATTACH  bulk 
entries. 
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AECOMPZ 


Entity: 

Entity  Type: 
Description: 

Relation  Attributes: 


Relation 

Contains  data  on  the  aerodynamic  components  in  the  CAER07  and  BODY7  bulk 
data  entries. 


NAME 

TYPE/KEY 

DESCRIPTION 

ACID 

lnteger>0 

Identification  number  of  CAER07  or  BODY7 
bulk  entries. 

MACROTYP 

Text(8) 

Either  'CAER07'  or  'BODY7'. 

GROUP 

Integer 

Identification  number  of  the  ACOORD  bulk  entry. 

ACMPNT 

Text(8) 

Component  type.  One  of  WING  or  BODY. 

TYPE 

Integer>0 

TYPE=2  for  CAER07, 3  for  BODY7. 

FIINTID 

lnteger>0 

First  internal  aerodynamic  box  identification 
number. 

NCBOX 

Integer>0 

Number  of  chordwise  boxes  for  CAER07. 

=1  forBODY7. 

NSBOX 

lnteger>0 

Number  of  spanwise  boxes  for  CAER07. 

Number  of  boxes  for  BODY7. 

BNDRY 

R  Vector(12) 

For  CAER07: 

BNDRY(i),  i=l,3:  x,  y,  z  of  leading  edge  at  root. 
BNDRY(i),  i=4,6:  x,  y,  z  of  trailing  edge  at  root. 
BNDRY(i),  i=7,9:  x,  y,  z  of  leading  edge  at  tip. 
BNDRY(i),  i=10,12:  x,  y,  z  of  trailing  edge  at  tip. 

For  BOD  Y7: 

BNDRY(i),  i=l,3:  x,  y,  z  of  the  nose. 

BNDRY(4):  base  pressure  of  the  body  wake. 
BNDRY(5):  X  location  of  the  steady  point 
singularity  of  the  body  wake. 

BNDRY(6):  X  location  of  the  unsteady  point 
singularity  of  the  body  wake. 

BNDRY(i),  i=7,8:  Y  and  Z  offset  for  the  point 
singularity  of  the  body  wake. 

BNDRY(9):  Body  length. 

BNDRY(IO):  Flag  for  body  wake.  (Integer) 
BNDRY(ll):  Number  of  inlet  boxes.  (Integer) 
BNDRY(12):  Number  of  wake  boxes  on  the  body. 

WCOS 

For  CAER07:  Cos(theta),  where  theta  =  dihedral 
angle. 

For  BODY7:  Number  of  segments.  (Integer) 

WSIN 

For  CAER07:  Sin(tlieta),  where  theta  =  dihedral 
angle. 

For  BODY7:  Not  used. 

IWING 

Integer 

Flag  for  vertical  fin  on  the  X-Z  plane. 

=0:  yes.  =1,  no. 

ATTR 

Integer 

=0:  CAER07  root  is  not  attached  to  BODY7. 

>0:  CAER07  root  is  attached  to  BODY7  with 
ID=ATTR. 

Not  used  for  BODY7. 

YRB 

Real 

Y  location  of  the  center  line  of  BODY7  to  which 
the  CAER07  root  is  attached. 

ZRB 

Real 

Z  location  of  the  center  line  of  BODY7  to  which 
the  CAER07  root  is  attached. 
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Created  by: 
Usage: 


FLCOSR 

Real 

Cos(theta),  where  theta  is  the  dihedral  angle  of  the 
vortex-carry-through  boxes  at  root. 

FLSINR 

Real 

Sin(theta),  where  theta  is  the  dihedral  angle  of  the 
vortex-carrv-through  boxes  at  root. 

ATTT 

Integer 

=0:  CAER07  Tip  is  not  attached  to  BODY7. 

>0:  CAER07  Tip  is  attached  to  BODY7  with 
ID=ATTT 

Not  used  for  BODY7. 

YTB 

Real 

Y  location  of  the  center  line  of  BODY7  if 

CAER07  tip  is  attached  to  it. 

ZTB 

Real 

Z  location  of  the  center  line  of  BODY7  if 

CAER07  root  is  attached  to  it. 

FLCOST 

Real 

Cos(theta),  where  theta  is  the  dihedral  angle  of  the 
vortex-carrv-through  boxes  at  tip. 

FLSINT 

Real 

Sin(theta),  where  theta  is  the  dihedral  angle  of  the 
vortex-carry-through  boxes  at  tip. 

LABEL 

Text(8) 

Label  of  CAER07  or  BODY7  bulk  entries. 

AEROGM 

AECOMPZ  is  used  by  SPLINZ,  UZAERO  and  SZAERO  modules. 
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Entity: 

Entity  Type: 
Description: 

Relation  Attributes: 


GEOMZA 

Relation 

Contains  data  on  the  aerodynamic  boxes  of  the  CAER07  and  BODY7  bulk  data 
entries. 


NAME 

TYPE/KEY 

DESCRIPTION 

MACROID 

Integer 

Component  identification  number  of  the  associated 

C  AERO  7  orBODY7. 

ACMPNT 

Text(8) 

-FUSEL'  for  BOD  Y7  box,  ='WING'  for  CAER07 
box. 

NDOF 

Integer 

=3  for  BODY7  box,  =2  for  CAER07  box. 

EXT© 

Integer 

External  identification  number  of  the  box. 

INT© 

Integer 

Internal  identification  number  of  the  box. 

AREA 

Real 

Area  of  the  box. 

X 

Real 

X  location  of  centroid  of  the  box. 

Y 

Real 

Y  location  of  centroid  of  the  box. 

z 

Real 

Z  location  of  centroid  of  the  box. 

N1 

Real 

X  component  of  the  box  normal  in  basic 
coordinates. 

N2 

Real 

Y  component  of  the  box  normal  in  basic 
coordinates. 

N3 

Real 

Z  component  of  the  box  normal  in  basic 
coordinates. 

R1 

Real 

X  component  of  the  box  local  pitch  axis  in  basic 
coordinates. 

R2 

Real 

Y  component  of  the  box  local  pitch  axis  in  basic 
coordinates. 

R3 

Real 

Z  component  of  the  box  local  pitch  axis  in  basic 
coordinates. 

RTHETA 

Real 

For  BODY7  box:  dihedral  angel  of  the  box. 

For  CAER07  box:  Thickness  slope  at  50%  chord. 

RDELTA 

Real 

For  BODY7  box:  Inclination  angel  of  the  box. 

For  CAER07  box:  Camber  slope  at  50%  chord. 

CHORD 

Real 

Chord  length. 

©1 

Integer 

Aerodynamic  grid  identification  number  at  left 
hand  side  comer  of  the  box  leading  edge. 

©2 

Integer 

Aerodynamic  grid  identification  number  at  left 
hand  side  comer  of  the  box  trailing  edge. 

©3 

Integer 

Aerodynamic  grid  identification  number  at  right 
hand  side  comer  of  the  box  leading  edge. 

©4 

Integer 

Aerodynamic  grid  identification  number  at  right 
hand  side  comer  of  the  box  trailing  edge. 

CAM85 

Real 

Camber  slope  at  85%  chord  for  CAER07  box. 

Not  used  for  BODY7  box. 

CAM95 

Real 

Camber  slope  at  95%  chord  for  CAER07  box. 

Not  used  for  BODY7  box. 

DZX85 

Real 

Thickness  slope  at  85%  chord  for  CAER07  box. 

Not  used  for  BODY7  box. 

DZX95 

Real 

Thickness  slope  at  95%  chord  for  CAER07  box. 

Not  used  for  BODY7  box. 
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DZXLE 

Real 

Thickness  slope  at  leading  edge  of  the  mid-chord 
for  CAER07  box. 

Not  used  for  BOD Y7  box. 

DZXTE 

Real 

Thickness  slope  at  trailing  edge  of  the  mid-chord 
for  CAER07  box. 

Inlet  panel  flow  ratio  in  percentage  for  BODY7 
box. 

IWAKE 

Integer 

For  BODY7  box=l,  box  is  inlet  panel.  =0,  box  is 
not  inlet  panel. 

Not  used  for  CAER07  box. 

Created  by:  AEROGM 

Usage: 

GEOMZA  is  used  by  SPLINZ,  UZAERO  and  SZAERO  modules. 
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Entity: 

Entity  Type: 
Description: 
Relation  Attributes: 


Created  by: 

Usage: 

AGRIDZ 


AGKEDZ 

Relation 

Contains  data  of  the  comer  grid  points  on  the  CAER07  and  BODY7  boxes. 


NAME 

TYPE/KEY 

DESCRIPTION 

EXTID 

lnteger>0 

External  identification  of  the  grid  point 

INTID 

lnteger>0 

Internal  identification  of  the  grid  point 

CORD 

Integer 

Identification  number  of  ACOORD  bulk  entry. 

X 

Real 

X  location  of  the  grid  point 

Y 

Real 

Y  location  of  the  grid  point 

Z 

Real 

Z  location  of  the  grid  point. 

AEROGM 


is  used  by  UZAERO  and  SZAERO  modules. 
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Entity: 
Entity  Type: 
Description: 


REUNMK 

Relation 

Contains  the  relations  between  the  unsteady  aerodynamic  matrices  generated  by  the 
UZAERO  module  to  the  bulk  entries  MKAEROZ. 


Relation  Attributes: 


NAME 

TYPE/KEY 

DESCRIPTION 

IDMK 

Integer>0 

Identification  number  specified  in  the  bulk  entries 
MKAEROZ. 

MACH 

ReateO. 

Mach  number  specified  in  bulk  entries 

MKAEROZ. 

METHOD 

Integer 

Method  flag  specified  in  bulk  entries  MKAEROZ. 

SYMXZ 

Integer 

Symmetry  flag.  SYMXZ=1  for  symmetric  case,  =-l 
for  antisymmetric  case,  =0  for  asymmetric  case. 

ALPHA 

Real 

Angle  of  attack  specified  in  the  TRIMFLT  bulk 
entry  of  the  current  MKAEROZ. 

BETA 

Real 

Side  slip  angle  specified  in  the  TRIMFLT  bulk 
entry'  of  the  current  MKAEROZ. 

PRATE 

Real 

Non-dimensional  roll  rate  specified  in  the 

TRIMFLT  bulk  entry  of  the  current  MKAEROZ 
bulk  entry  of  the  current  MKAEROZ. 

QRATE 

Real 

Nondimensional  pitch  rate  specified  in  the 
TRIMFLT  bulk  entry  of  the  current  MKAEROZ. 

RRATE 

Real 

A  non-dimensional  yaw  rate  specified  in  the 
TRIMFLT  bulk  entry  of  the  current  MKAEROZ. 

MINDEX 

lnteger>0 

Index  of  the  MKAEROZ  bulk  entry  ranging  from 

1  to  the  number  of  the  MKAEROZ  bulk  entries. 

KINDEX 

lnteger>0 

Index  of  the  reduced  frequency  ranging  from  1  to 
the  number  of  reduced  frequencies  specified  in  tire 
current  MKAEROZ. 

RFREQ 

Real>0.0 

The  KINDEXth  reduced  frequency  specified  in  the 
current  MKAEROZ. 

Created  by: 


UZAERO 


Usage: 


The  UZAERO  module  generates  the  unsteady  aerodymanic  matrices  [AJK],  [AJC],  and  [QGK]  of 
all  MKAEROZ  bulk  entries  in  the  input  file  regardless  of  whether  or  not  they  are  required  for  the 
downstream  unsteady  aeroelastic  modules.  To  retrieve  these  matrices,  please  see  tire  example  on 
the  following  page: 
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o  o  o  o 


For  a  given  pair  of  IDMK  and  SYMXZ  found  in  either  the  FLUTTER  or  GUST  bulk  endy,  to 
retrieve  the  corresponing  matrix  [AJK]: 


CHARACTER* 8  UNLIST (12) , NAME 

DATA  UNLIST/  1  IDMK* ,  'MACH',  'METHOD' ,  ' SYMXZ 'ALPHA' ,  'BETA*,  'PRATE',  'QRATE * 

*  , 'RRATE ', 'MINDEX' , 'KINDEX', ' RFREQ  * / 

INTEGER  INFO (20} ,IGET(12) , MINDEX (100) , KINDEX (100) , SYMXZ 
REAL  RGET (12)  ,  K( 100) ,MACH 
EQUIVALENCE  (RGET ( 1) , IGET ( 1)  ) 

CHARACTER*!  S 

CALL  DBOPEN (REUNMK, INFO, 'RO' , 'NO FLUSH ',ISTAT) 

CALL  REPROJ(RENUMK, 12, UNLIST) 

NMK>INFO (3) 

C  .  NMK  -  total  number  of  MKAEROZ  bulk  entries. 

INDEk-0 
DO  I-l , NMK 

CALL  REGET (REUNMK, IGET,  ISTAT) 

IF (IDMK. EQ. IGET (1) )  THEN 
INDEX-INDEX+1 
MACH-REGET (2) 

METHOD- IGET (3) 

ISYM-IGET ( 4) 

MINDEX ( INDEX) -IGET (10) 

KINDEX ( INDEX)  -IGET (11) 

K{ INDEX) -RGET (12) 

ENDIF 

ENDDO 

CALL  DBCLOS (REUNMK) 

KTOTAL-INDEX 

C  KTOTAL  is  the  total  number  of  reduced  frequencies  specified  in  the  MKAEROZ  bulk  entry 
C  with  IDMK  as  the  identification  number. 

C  IF  one  wishes  to  retrive  the  [AJK]  matrix  of  the  second  reduced  frequency,  do  the 
C  following: 

KTH-2 

IF (SYMXZ. EQ.l. OR. SYMXZ. EQ.0)  THEN 
S='S' 

ELSE 

S-'A' 

ENDIF 

C  Subroutine  MYNAME  is  an  utility  routine  to  assemble  the  matrix  name. 

C  INPUT:  AJK  A  three  characters  string  contains  the  basic  name  of  the  matrix. 

C  S-'S*  for  symmetric  or  asymmetric  case,  -'A'  for  antisymmetric  case. 

C  MINDEX (KTH)  KTH'th  Mach  number  index  found  in  the  REUNMK  realtion. 

C  KINDEX (KTH)  KTH'th  reduced  frequency  index  found  in  the  REUNMK  relation. 

C  OUTPUT:  A  character*8  string  of  the  matrix  created  by  UZAERO  module  with  the  form: 

C  AJKsiijj,  where  s-S,  ii-MINDEX (KTH) ,  and  jj -KINDEX (KTH) 

CALL  MYNAME (AJK, S, MINDEX (KTH)  ,  KINDEX (KTH) , NAME) 

C  Now,  NAME  is  the  matrix  name  of  the  AIC  matrix  of  the  corresponding  Mach  number  and 
C  reduced  frequency. 

CALL  MYNAME (A JC,S, MINDEX (KTH)  ,  KINDEX (KTH) , NAME) 

C  Now,  NAME  is  the  matrix  name  of  the  control  surface  forces  matrix  of  the  corresponding 
C  Mach  number  and  reduced  frequency. 

CALL  MYNAME (QGK,S, MINDEX (KTH)  , KINDEX ( KTH) ,NAME) 

Now,  NAME  is  the  matrix  name  of  the  gust  force  matrix  of  the  corresponding 
Mach  number  and  reduced  frequency. 


46 


6.0  REFERENCES 


1.  DJ.  Neill,  D.L.  Herendeen,  “ASTROS  User’s  Manual,”  Volume  I,  WL-TR-96-3004,  May 
1995. 

2.  DJ.  Neill,  D.L.  Herendeen,  R.L.  Hoesly,  “ASTROS  Programmer’s  Manual,”  Volume  II, 
WL-TR-93-3038,  March  1993. 

3.  Johnson,  E.H.  and  Venkayya,  V.B.,  “Automated  Structural  Optimization  System  (ASTROS), 
Theoretical  Manual,”  AFWAL-TR-88-3028,  Vol.  1,  December  1988. 


46a 


APPENDIX  A 


ZAERO  FUNCTIONAL  MODULE  DEFINITION 

(MODDEF.DAT) 
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The  following  is  a  list  of  all  ZAERO  module  definitions  added  to  ASTROS  and  found  in  file 
MODDEF.DAT. 


AEROGM  3 
102  777 

C 

C  AERO  GEOMTRY  FOR  ZAERO  MODULE 

C  NOTE:  ALPHABETICAL  ORDER  IN  FILE  MODDEF.DAT  IS  NOT  REQUIRED 
C 

CALL  AEROGM  {  EP  Cl) ,  EP(2),  EP(3)  ) 

END 


CONMOD  8 

102  77888888 

C 

C  ZAERO  CONTROL  MODE  GENERATOR 
C 

CALL  CONMOD  {  EP(1),  EP{2) ,  EP(3),  EP ( 4)  , EP (5) , EP (6) , EP (7) , 
1  EP {B )  } 

END 


FLUTQHHZ  18 
102  -111 
C 

C  PROCESS  THE 
C 

CALL  FLTQHZ 

1 

2 

END 


1188889881778 

1 FLUTQHHL ’  MODULE  -  FLUTTER  AEROMATRIX  PROCESSOR 

{  IP{1),  IP (2) ,  IP (3) ,  IP{4),  IP(5),  EP (6) ,  EP (7 )  , 
EP  (8 ) ,  EP  ( 9)  ,  EP (10) ,  EP (11) ,  EP {12) ,  IP{13), 

EP (14) ,  EP{15),  EP (16) ,  EP (17)  ,EP(18)) 


7 


FLUTSENZ  21 

102  1  1  1  4  1  1  7  7  7  9  7  9  7  7  8  8 

8  7 


C 

C 

C 


END 


PROCESS  THE  'FLTSTY'  MODULE  TO  OBTAIN  FLUTTER  CONST.  SENSITIV. 


CALL  FLTSTZ  (  IP(1),  IP(2),  IP(3),  LP(4),  IP(5),  IP{6),  EP(7), 

*  EP  (8 )  ,  EP  { 9)  ,  EP  (10)  ,  EP  (11)  ,  EP  (12)  ,  EP(13), 

*  EP (14 ) ,  EP (15) ,  EP (16) /  EP (17) ,  EP(18),  EP{19), 

*  EP (20) ,  EP (21)  ) 


8 


FLUTTRAZ  13 
102  -111 
C 

C  PROCESS  THE 
C 

CALL  FLUTAZ 

1 

END 


87118887  -7  7 

•FLUTAN1  MODULE  TO  PERFORM  FLUTTER  ANALYSIS 

(  IP(1),  IP  (2)  ,  IPO),  EP  (4)  ,  EP  ( 5}  ,  IPO),  IP  (7 )  , 
EP (8 ) ,  EP ( 9) ,  EP (10) ,  EP{11),  EP (12) , EP ( 13)  ) 


QHHLGENZ  11 

102  11888888887 

C 

C  'QHHLGENZ'  -  GENERATE  THE  QHH  MATRIX  LIST  FOR  FLUTTER  ANALYSIS 
C 

CALL  QHJGEN  (  IP (1) ,  IP(2),  EP(3),  EP(4),  EP(5),  EP(6), 

1  EP (7) ,  EP (8) ,  EP (9) ,  EP (10) ,  EP(ll)  ) 

END 


SPLINZ  5 
102  1  7  7  7  8 

C 

C  PROCESS  THE  UNSTEADY  AERODYNAMIC  SPLINE 
C 

CALL  SPLINZ  (  IP(1),  EP (2) ,  EP(3),  EP(4),  EP(5)  ) 

END 
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SZAERO  12 

102  814777788888 

C 

C  PROCESS  ZAERO  STEADY  AERODYNAMICS 

C  (PREFACE  TO  STATIC  AEROELASTICITY  DISCIPLINE) 

C 

CALL  SZAERO  {  EP{1),  IP(2),  LP(3),  EP(4),  EP(5),  EP (6) #  EP(7), 
1  EP (8) /  EP{9),  EP(10} ,EP(11),EP(12)  ) 

END 


UZAERO  11 

102  777  8  8  8  8  8  8  88 

C 

C  AIC  GENERATION  BY  ZAERO  MODULE 
C 

CALL  UZAERO  (  EPr'(l)  ,  EP(2)  ,  EP(3),  EP(4),  EP(5),  EP(6), 
1  EP (7 ) ,  EP { 8) ,  EP  (9) ,  EP (10) , EP (11}  ) 

END 


INPUT4  6 

102  -1  1  7  8  8  8 

C 

C  READ  MODAL  RESULTS  FROM  NASTRAN  OUTPUT4  SOLUTION 
C  AND  REPLACE  THE  ASTROS  DATABASE  MATRICIES  KAA,  MAA,  PHIA 
C  AND  RELATION  LAMBDA 
C 

CALL  INPUT4  ( IP ( 1) , I P (2) , EP ( 3) , EP ( 4 ) , EP { 5) , EP ( 6) ) 

END 
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APPENDIX  B 


ASTROS*  MAPOL  SEQUENCE  LISTING 
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The  following  ASTROS*  MAPOL  sequence  listing  documents  all  changes  made  to  the  original 
ASTROS  MAPOL  sequence.  All  newly  added  lines  and  commented  lines  for  integration  of 
ZAERO  into  ASTROS  are  highlighted  in  boldfaced  text.  Arrows  are  also  used  at  the  ends  of  the 
lines  to  demarcate  the  beginning  and  ending  of  changes. 


ASTROS*  MAPOL  Sequence  Listing: 


*****  MAPOL  SOURCE  CODE  LISTING  ***** 

STAT .LEVI 

1  11$***$ 

2  11$  CSCIID  <0(1}  MCO 0 8 3 -MA  POLS EQ  11.1  4/29/94  17:00:35>  $ 

3  U $***$  ************♦************************$ 

5  lj$  ^  ^  ^  #  ^EXECUTIVE  SEQUENCE^FOR^ASTROS^  ^  ^  ***********4 


8 

11$ 

CONSTANTS 

FOR  SDCOMP 

SET  SINGULARITY 

MESSAGES 

$1 

9 

ij $*********★************★*★*****************************************************$ 1 

10 

1 ! INTEGER 

SINGOSET, 

SINGASET, 

SINGLSET? 

i 

11 

ije* *♦***************************************************************************$! 

12 

11$ 

VARIABLE  DECLARATION 

SEGMENT 

$1 

13 

1!$******************************************************************************$! 

14 

11$ 

$! 

15 

1! INTEGER 

GSIZE, 

NDV, 

NITER, 

BC, 

j 

16 

1! 

ESIZE(IOOO) , 

PSIZE (1000) ,  GSIZEB; 

i 

17 

UREAL 

CTL, 

CTLMIN ; 

i 

18 

1 ! LOGICAL 

GLBCNVRG, 

APPCNVRG, 

PFLAG; 

i 

19 

1 ! UNSTRUCT 

DCENT, 

GRIDTEMP, 

SMPLOD; 

i 

20 

1! RELATION 

DESHIST, 

CONST, 

MPPARM, 

CONVERT, 

OCPARM, 

i 

21 

1! 

MFORM, 

GRID, 

SPOINT, 

EPOINT, 

SEQGP, 

i 

22 

1! 

BGPDT (1000) , 

CSTM, 

FORCE, 

FORCE1 , 

MOMENT, 

! 

23 

1! 

MOMENT1, 

PLOAD, 

GRAV, 

LOAD, 

EIGR, 

! 

24 

1! 

TEMP, 

TEMPO, 

OPNLBUCK, 

OEULBUCK, 

1 

25 

11 

CORD1C, 

CORD1R, 

CORDIS, 

CORD2C, 

CORD2R, 

1 

26 

11 

CORD2S, 

GPWGGRID, 

OGPWG,. 

GRADIENT; 

i 

27 

11$ 

$! 

28 

lie***  ******************************************************************** *****♦*$! 

29 

11$ 

DECLARATIONS 

FOR  MODULE 

MKUSET 

$1 

30 

11  ********************** **********************************  ********************** *$! 

31 

11$ 

$  ! 

32 

1 1 UNSTRUCT 

USET{1000) , 

GPST(IOOO) 

; 

i 

33 

li RELATION 

SPC, 

SPC1, 

SPC ADD, 

MPC, 

MPCADD, 

1 

34 

1! 

ASET, 

ASET1, 

OMIT, 

OMIT1, 

SUPORT, 

1 

35 

1! 

JSET, 

JSET1, 

RBAR,  RBE1, 

RBE2 ,  RBE3, 

RROD; 

i 

36 

1 1  MATRIX 

[PGMN (1000) ] 

,  [PNSF{ 1000) ] , (PFOA(IOOO) ] 

[PARL (1000) ) 

,  [TMN (1000) ] , 

t 

37 

11 

[YS (1000) ] ; 

i 

38 

1! MATRIX 

[ PGMNS (1000) ] , 

(PNSFS (1000) ] , 

[PFOAS (1000) ] , 

l 

39 

1! 

[PARLS (1000) ] ; 

j 

40 

11$ 

$  ! 

41 

U e*********************************** ********************  ********************* 

**$  1 

42 

11$ 

DECLARATIONS 

FOR  MODULES  MAKES T  AND  EMG 

$1 

43 

1 1**** *****************************  ************************************* *♦****★**$! 

44 

11$ 

$1 

45 

1 ! UNSTRUCT 

TREF, 

DVSIZE, 

PCOMP S; 

46 

1 1 IUNSTRUCT 

KELM, 

MELM, 

TELM; 

47 

1!  RELATION 

CQDMEM1, 

QDMM1EST, 

CROD, 

CONROD, 

RODEST, 

48 

1! 

CSHEAR, 

SHEAREST, 

CTRMEM, 

TRMEMEST, 

CMASS1, 

49 

11 

CMASS2, 

MASSEST, 

CONM1 , 

CONM1EST , 

CONM2 , 

50 

11 

CONM2EST, 

CBAR, 

BEAMEST, 

CQUAD4 , 

QUAD4EST, 

51 

1! 

CIHEX1 , 

IHEX1EST, 

CIHEX2, 

IHEX2EST, 

CIHEX3, 

52 

1! 

IHEX3EST, 

CELAS1, 

CELAS2, 

ELASEST, 

53 

1! 

PCOMP, 

PQDMEM1, 

PROD, 

PSHEAR, 

54 

1! 

PTRMEM, 

PMASS, 

PELAS, 

PBAR, 

PSHELL, 

55 

1! 

PCOMP 1, 

PCOMP2, 

PIHEX, 

MAT1 , 

MAT2, 

56 

1! 

MAT8, 

MAT9 , 

CTRIA3, 

TRIA3EST; 

57 

11$ 

$1 

58 

ii  $******************************************************************************$  \ 

59 

11$ 

DECLARATIONS 

FOR  DESIGN 

VARIABLES/CONSTRAINTS  AND  LINKING 

$1 

60 

l j **************************************************************** ***************$* 

61 

11$ 

$1 

62 

11  RELATION 

DESELM, 

DESVARP, 

DESVARS, 

PLIST, 

ELI ST, 

1 

63 

1! 

SHAPE, 

SHPGEN; 

i 

64 

1! RELATION 

DCONVM, 

DCONTW, 

DCONEP, 

DCONFT, 

DCONVMM, 

i 

51 


65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82  *■' 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 


1  i 

DCONTWM, 

DCONEPM, 

DCONFTM, 

DCONVMP, 

DCONTWP, 

1! 

DCONEPP, 

DCONFTP, 

DCONALE, 

DCONCLA, 

DCONFLT, 

11 

DCONTRM, 

DCONSCF; 

11  RELATION 

DCONDSP, 

DCONFRQ, 

DCONTHK, 

DCONTH2 ; 

1!  RELATION 

DCONPMN, 

DCONLMN, 

DCONLAM; 

1!  RELATION 

DCONBK, 

DCONBKE; 

1! RELATION 

GLBDES, 

DESLINK, 

TFIXED, 

LOCLVAR, 

DVCT; 

1 'MATRIX 

[ PTRANS] ; 

1 ! IMATRIX 

[PMINT] , 

[PMAXT], 

[SMAT] ; 

t;L**********************************************************************; 

IIS 

DECLARATIONS 

FOR  OUTPUT 

FILE  PROCESSING 

(EDR/OFP) 

! ,$*************************************+*********************************' 

11$ 

11  RELATION 

GRIDLIST, 

MODELIST, 

ELEMLIST, 

FREQLIST, 

TIMELIST, 

1! 

ITERLIST, 

GDVLIST, 

LDVLIST, 

DCONLIST, 

PLYLIST; 

11$ 

11  RELATION 

GPFELEM, 

EOSUMMRY, 

EOBAR, 

EOELAS, 

EOHEX1, 

1! 

EOHEX2, 

EOHEX3, 

EOQDMM1 , 

EOQUAD4, 

EOROD, 

1! 

EOSHEAR, 

EOTRMEM, 

GPFDATA, 

EOTRIA3; 

1 1 UNSTRUCT 

EODISC; 

1 1  $ 

11  RELATION 

OGRIDLOD, 

OGRIDDSP, 

OLOCALDV, 

OAGRDDSP, 

OAGRDLOD; 

1 IMATRIX 

[FLUTMODE], 

[PTGLOAD] 

,  [PFGLOAD] , 

[PTHLOAD] , 

[PFHLOAD] 

U$  DECLARATIONS  FOR  MODULES  EMA1,  EMA2  AND  GLOBAL 

lU  MATRIX  PARTITION/REDUCTION 

11$ 


1 1 IUNSTRUCT 

DKVI, 

DMVI ; 

11  RELATION 

GMKCT , 

GMMCT; 

1 IMATRIX 

[KGG], 

[KNN] , 

[KFF], 

[KAA] , 

[KLLi] , 

11 

[MGGJ , 

[MNN] , 

[MFF]  , 

[MAA], 

[MLL]  , 

11 

[MRRBAR] , 

[MLR], 

[KFS] , 

[KSS] , 

[KOOINV (1000)  ]  , 

1! 

[GSUBO (1000)  ]  , 

[KLLINV (1000) ] , 

[MRR( 1000)  ] , 

11 

[IFM( 1000)  ]  t 

[M1GG]  , 

[IFR(1Q00)  ] , 

[KRR]  , 

[D{1000)], 

1! 

[KLR], 

[K1GG] , 

[LHS ( 1000) ] , 

[M2GG] , 

[MOO] , 

11 

[MO A]  , 

[K2GG] , 

[MAABAR] ; 

1 IMATRIX 

[TMP1 ] , 

[TMP2  ]  ; 

1 IMATRIX 

[PG], 

[PN], 

[PP]  * 

[PA], 

1! 

[PO], 

[PLBAR] , 

[PR], 

[RHS (1000) ], 

[UG (1000) ] , 

11 

[UN], 

CUF], 

[UA], 

[UL], 

[UM], 

11 

[AG (1000) ] , 

[AN], 

[AF],  • 

[AA], 

[AR], 

11 

[AL], 

[UO], 

[UOO]  , 

[PS] ; 

11  LOGICAL 

M2GGFLAG, 

K2GGFLAG; 

1 1  S 

i ijt************************************************************************ 

1 1 S  DECLARATIONS  FOR 

SOLUTION  CONTROL 

l  |  ^**** *************************************  ******  **********  ******  ********** 

11$ 

1 1  INTEGER 

NUMOPTBC, 

NBNDCOND, 

MAXITER, 

11 

MPS, 

MPE, 

1! 

OCS, 

OCE, 

11 

FSDS, 

FSDE; 

11  INTEGER 

BLOAD, 

BMASS, 

BMODES , 

BSAERO, 

BFLUTR, 

1! 

BDYN, 

BDRSP, 

BDTR, 

BMTR, 

BDFR, 

1! 

BMFR, 

BGUST, 

BBLAST, 

NMPC, 

NSPC, 

1! 

NOMIT, 

NRSET, 

DMO DES  ? 

UREAL 

MOVLIM, 

WINDOW, 

OCMOVLIM, 

ALPHA, 

CNVRGLIM, 

11 

NRFAC, 

EPS? 

1! RELATION 

JOB, 

OPTIMIZE, 

CASE; 

11  §  *********************************** 

***************************** 

UfcULMKAl  luro  cur.  slixoiijiviii  c-vmjwnnwn  *  *  *^ 


132 

11  INTEGER 

DDFLG, 

NACSD, 

NAUS, 

NAUA; 

133 

1 1  LOGICAL 

ACT BOUND, 

ACTFLUT, 

ACTDYN, 

ACTAERO, 

ACTAEFF 

134 

1! 

ACTUAG, 

ACTUAGG, 

ACTPNL, 

ACTBAR; 

135 

1 IUNSTRUCT 

PCAS, 

PCAAf 

PCAE? 

136 

11  RELATION 

PDLIST? 

137 

11 MATRIX 

[DFDU] , 

[PGAS] , 

[UGA]  , 

[DUG] , 

[DMUG] , 

138 

11 

[DPFV] , 

[DPOV] , 

[DPNV] , 

[DPAV] , 

[DUAV] , 

139 

11 

[DUAD], 

[DUFV] , 

[AGA] , 

[AMAT]  , 

[DKUG] , 

140 

11 

[DPGV] , 

[DPLV], 

[DURD1, 

[DULD], 

[DULV] , 

141 

1! 

[DDELDV] , 

[DPRV] , 

[DRHS] , 

[DFDUF] , 

[PGAA] , 

142 

1! 

[DFDUN] , 

[DMAG] , 

[ DMUN ] , 

[DMUFJ , 

[DMUA]  , 

143 

11 

[DMUO] , 

[DMUL], 

[DMUR] , 

[DMU] , 

[DPI], 

144 

11 

[DK1V], 

[AUAGC3 , 

[DURV], 

[EFFSENS], 

[DU1L] , 

145 

1! 

[DU1R], 

[DU2], 

[LHSL] , 

[LHSU]  , 

[ PGAU] , 

52 


<s>  <n  <n  <r>  In  </>  W  </>-</>-</></>■</> 


146 

1! 

[SENSMT] ; 

1 

147 

1 ! IMATRIX 

[GLBSIG] , 

[DPTHVIJ, 

[DPGRVI] , 

[DPVJ] ; 

j 

148 

1 !  $ 

$  1 

149 

ii $********★*********************♦****************  *******************★***********§ | 

150 

1 ! $  AERODYNAMIC  ENTITIES 

$1 

151 

1 1  $********* 

*********************************************************************$! 

152 

11$ 

$! 

153 

1 1  INTEGER 

SYM, 

MINDEX, 

SUB, 

Si 

! 

154 

UREAL 

QDP, 

MACH; 

! 

155 

1! LOGICAL 

LOOP, 

AEFLG(IOOO) , 

NONPONLY; 

1 

156 

1 1 UNSTRUCT 

ACPT, 

UNMK; 

♦ 

157 

11  RELATION 

AESURF, 

AIRFOIL, 

AEROS, 

AEFACT, 

AXSTA,  ! 

158 

1! 

BODY, 

SPLINE1 , 

SET1, 

SET2 , 

ATTACH,  1 

159 

1! 

TRIM, 

AERO, 

BLAST, 

CAER06 , 

PAER06,  ! 

160 

1* 

GEOMSA, 

AECOMPS, 

STABCF, 

CAEROl , 

PAEROl ,  1 

161 

1! 

CAER02 , 

PAER02 , 

MKAEROl , 

MKAER02 , 

FLUTTER,  ! 

162 

11 

FLFACT, 

CLAM BOA, 

CONEFFS, 

CONLINK, 

GEOMUA,  1 

163 

U 

AECOMPU , 

SPLINE2, 

CONEFFF, 

AEROGEOM, 

CAROGEOM,  1 

164 

11 

AERUGEOM, 

CAROUGEO, 

ACOORD, 

AG  RID, 

AGRIDZ ,  !  4- 

165 

1! 

AQUAD4 , 

ATRIA3, 

CAER07, 

PAF  OIL 7 , 

B0DY7 ,  t 

166 

1! 

PBODY7 , 

SEGMESH, 

CHORDCP , 

MACH CP , 

ZTAIC,  1 

167 

1! 

AECOMPZ, 

GEOMZA, 

MKAEROZ , 

AEROZ, 

REUNMX,  ! 

168 

1! 

PANLST1 , 

PANLST2 , 

SPLIKE3 , 

AESURFZ, 

TRIMFLT,  ! 

169 

1! 

LOADMOD ; 

!  4" 

170 

11  MATRIX 

[AIRFRC (1000) ], 

[AICMAT (1000)  ], 

[AAICMAT (1000)3/  1 

171 

1! 

[AICS] , 

[KAFF), 

[PAF], 

[KAAA) , 

[PAA],  1 

172 

11 

[GASUBO{30, 33) ] , 

[SKJ] , 

[D1JK), 

[D2JK],  i 

173 

11 

[KARL], 

[Rll]* 

[ K2 1 (30, 33) ] 

[ PARBAR) , 

[PAL),  1 

174 

11 

[PAR (30,33) ] 

[K1112 (30, 33) ] , 

[AIRFORCE] , 

[ K2  2  3  ,  1 

175 

1! 

[GTKG] , 

[GTKN] , 

[GTKF), 

[GSTKG] , 

[GSTKN] ,  1 

176 

1! 

[GSTKF] , 

[GSKF] , 

[UGTKG] , 

[UGTKN], 

[UGTKFJ,  1 

177 

11 

[UGTKA] , 

[UGTKO] , 

[UGTKAB] , 

[AITD], 

[KARR),  1 

178 

11 

[R12 (30, 33) ] 

,  [R22 ) , 

[R32 ( 30, 33) ] 

IKU), 

[K12 (30, 33) ] ,  1 

179 

11 

CPI], 

[R21  (30,33)  ) 

, [R31 (30, 33) J 

,  [RL11(30,33)  ],  1 

180 

11 

[RU1I (30,  33) 

3, 

[P2], 

[MAAA]  , 

[ I FMA (30,33)),  1 

181 

1! 

[R13 (30,33) ] 

,  [R33] , 

[DELC] , 

[PRIGID], 

i 

182 

1! 

[AARC], 

[AAR], 

[AAA(1000) ], 

[UAA(IOOO)  ), 

[AAAGC] ,  1 

183 

11 

(PAO(IOOO) ] , 

[AAFTMP3 , 

[UAFTMP] , 

[UAN)  , 

[AAN] ,  1 

184 

11 

[UAGUOOO)  3 , 

(AAG(IOOO) ] , 

[AAL]  , 

[AAF] , 

[UAF]  ,  1 

185 

11 

[KOOL (30,  33)  3  , 

[KOOU (30,33)  ]  , 

[LHSA(30,  33) ] ,  1 

186 

1! 

[POARO{30, 33}), 

[KAO (30,33)  ] 

(UAR] , 

[RHSA(30,  33) )  ,  1 

187 

1! 

[DELTA (1000) ] , 

[ PAOC (1000)  ] 

tUAAC(lOOO) ] 

,  [AAAC(1000)  ),  1 

188 

11 

[UAFC (1000) ) 

, [UANC { 1000) ] 

, [UAGC (30, 33) ] , 

[AAFC (1000) ] ,  1 

189 

1! 

[AANC (1000) ) 

,  [AAGC(30,33H, 

[KLU  (30, 33)  ] ,  [KU1 1(30,33)  ] ,  1 

190 

11 

[R11DPL], 

[R11PAL(30, 33) ] t 

[R1112 (30, 33) ] ,  1 

191 

11 

[R1113 (30, 33)  ] , 

[UAL)  ; 

1 

192 

11 IMATRIX 

[AJJTL] , 

[QJJL]  , 

[QKKL], 

[QHHL3 , 

[AJK]  ,  f  4- 

193 

1! 

[AJC]  , 

[SCNTLG] , 

[SCNTLK] , 

[ACNTLK)  , 

[ACNTLG] ,  1 

194 

1! 

tQGK]  , 

[LMODEG]  , 

[LMODEK] , 

tAJLJ  ; 

!  4- 

195 

11$ 

$  1 

196 

iie****+*+* 

************** 

************* 

************* 

************* 

*****************$  i 

197 

11$  DYNAMIC  RESPONSE 

DECLARATIONS 

$1 

198 

ii <****************************★*******+ **+**********+***************************$! 

199 

11$ 

$1 

200 

11  INTEGER 

HSIZE (1000) ; 

1 

201 

1 ! UNSTRUCT 

TFDATA, 

ICDATA, 

UDLOLY; 

i 

202 

1!  RELATION 

LAMBDA, 

OEIGS, 

DLONLY, 

DLOAD, 

TABLED1,  1 

203 

11 

IC, 

TLOAD1 , 

T LOAD 2 , 

RLOAD1 , 

RLOAD2 ,  1 

204 

11 

TSTEP, 

VS DAMP, 

TABDMP1 , 

DLAGS , 

TF,  1 

205 

11 

DMIG, 

GUST, 

FREQ, 

FREQ1, 

FREQ2 ,  1 

206 

1! 

FFT, 

FLUTREL; 

i 

207 

11  MATRIX 

[PHIKH] , 

[QHJL] , 

[QKJL) , 

[PHIA], 

[Mil],  1 

208 

11 

[ PHIOJ , 

[PHIF] , 

[ PHIN) , 

[PHIG(1000) ] 

,  [KHHT] ,  1 

209 

1! 

[KHHF], 

[BHH] , 

[MHH], 

£  PDT } , 

[PDF],  1 

210 

1! 

[KDDT] , 

[KDDFJ , 

[BDDJ , 

[MDD], 

[ICMATRIX] ,  1 

211 

11 

[UTRANA], 

[UFREQA] , 

[UTRANI], 

[UFREQI] , 

[UFREQE] ,  ! 

212 

11 

[UTRANE3, 

[UTRANF] , 

[UFREQF], 

(UTRANN) , 

[UFREQN] ,  1 

213 

11 

[UTRANG), 

[UFREQG] , 

[MHHFL(30, 33)  ] , 

(BHHFL(30,33) ] ,  1 

214 

1! 

[QHHLFL  (30,33}), 

[KHHFL{30, 33)  ] ; 

j 

215 

11$ 

$1 

216 

iie*******  ******************************************************************  **★**$« 

217 

11$  DECLARATIONS  FOR  GENERALIZED  DYNAMIC  REDUCTION  (GDR) 

$1 

218 

l i $************************************************************************♦*****$! 

219 

11$ 

$1 

220 

1! INTEGER 

LKSET, 

LJSET, 

NEIV, 

GNORM, 

NGDR,  1 

221 

11 

ASIZE, 

LSIZE; 

j 

222 

UREAL 

FMAX? 

» 

223 

1!  RELATION 

DYNRED; 

i 

224 

1 IMATRIX 

[PGDRG( 1000) ] , [PHIOK), 

[KOO], 

[GGO) , 

[KSOO] ,  1 

225 

11 

(KOA), 

[LSOO] , 

[PAJK), 

[PFJK] , 

[UFGDR] ,  1 

226 

11 

[AFGDR) , 

[UJK] , 

[GTMP] ; 

i 
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[UBLASTG],  [UBLASTF]; 


[ID2], 

[PHIE], 

[PHIR], 

[PHIB], 

[GENK]  , 

[GENF] , 

[GENQ] , 

[GENQL] , 

[FTF] , 

[QRE] , 

[QEE], 

[KEQE], 

[UKQ], 

[GFR]  , 

[GFE] , 

[BTEM], 

[BLGTJA] , 

[BFRC] , 

[MATTR] , 

[MATSS] , 

[DELB] , 

[DELM], 

[URDB] , 

[GENFA], 

[ELAS] , 

[SLPMOD] , 

[QRR] t 

[UBLASTI] 

1«S  $! 

^^Itmt^-kl,******  **  **********************************************************  ***^‘ 

1 1  $  BLAST  RESPONSE  DECLARATIONS  ^ j 

U $************************************* *************** ********************* $ * 

ns  ?; 

UREAL  BQDP;  * 

1 ‘MATRIX  [MPART] ,  [ID2],  [PHIE],  [PHIR],  [PHIB],  * 

II  [GENM],  [GENK],  [GENF],  [GENQ],  [GENQL], 

li  [DTSLP] ,  [FTF],  [QRE] ,  [QEE],  [ KEQE ] ,  • 

11  [LKQ] ,  [UKQ],  [GFR],  [GFE] ,  [BTEM] ,  . 

[BLSTJA] ,  [BLGTJA] ,  [BFRC],  [MATTR] ,  [MATSS] , 

U  [KEEJ,  [DELB] ,  [DELM],  [URDB]  ,  [GENFA] ,  1 

11  [DWNWSH] ,  [ELAS],  [SLPMOD] ,  [QRR] t  [UBLASTI] ,  1 

1!  [UBLASTG],  [UBLASTF];  ; 

1 1  $  *  * 

li $* ************************************************************************ *****$'• 

1 1  $  51 

11$  BEGIN  MAPOL  SOLUTION  SEQUENCE  $  j 

l  i  $  ^  * 

ii $******************* ************* ***************************************♦******$! 

1  1  $  PREFACE  MODULES 

U  icl,  ********************************************************  *****************^' 

liSINGOSET  :»  1;  ] 

USINGASET  :»  2;  J 

1 ! SINGLSET  :=  3; 

1 « $***** **********************  ************************************ ***************$! 

11$  ^  * 

11$  INITIALIZE  SUBSCRIPT  VALUES  TO  "1"  TO  AVOID  RUN  TIME  PROBLEMS  $! 

1 1  $  $  • 

1 1  $********  if** **************************************************  ****** ***********$! 

i i sub  l;  ; 

1! PRINT ("LOG-{ ’BEGIN  PREFACE  MODULES ')") ; 

1 ! CALL  SOLUTION  <  NUMOPTBC,  NBNDCOND,  MPS,  MPE,  OCS,  OCE,  FSDS,  FSDE,  ! 

li  MAXITER,  MOVLIM,  WINDOW,  OCMOVLIM,  ALPHA,  CNVRGLIM,  1 

II  NR FAC,  EPS  ) ;  1 

1 1  CALL  IFP  (  GSIZEB  );  ^  I 

2  i  $*****★*********************************  **  ************************************  *^  ! 

1»$  TRY  USING  A  UTILITY  TO  PRINT  OUT  THE  GRID  RELATIONAL  ENTITY  $! 

11$  5  1 

11$  GENERATE  THE  ELEMENT  MATRICES 

1!  $  5  * 

1 ; $********* ****************************** ***************************************$! 

1 1  PRINT  (  "LOG*5  (  '  ELEMENT  MATRIX  GENERATION  * )  ")  ;  ! 

l i ^* ************************** **********★****.******************♦*****************$ 1 
1!  $  $ ' 
11§******«  ************************************************** *****  +  ***************$ l 
1 1  CALL  MAKEST  (  NDV,  GLBDES,  [PTRANS],  [PMINT] ,  [ PMAXT ] ,  LOCLVAR,  1 

1!  TFIXED,  DESLINK  >;  ! 

U^*  ********************************************************  **************  *******$'. 

11$  5  1 

1 j §*  +  *** *************************************************************  ******* *****$ 1 

1 1  CALL  EMG  (  NDV,  GSIZEB,  GLBDES,  DESLINK,  [SMAT] ,  DVCT,  DVSIZE,  1 

II  KELM,  MELM,  TELM,  TREF  );  1 

1 1 CALL  PFBULK  {  GSIZEB,  EOSUMMRY ,  EODISC,  GPFELEM  );  ! 

li  §******* ******************************************************************** ***$  ! 

11$  HANDLE  THE  NON-PLANAR  STEADY  AERODYNAMICS  ANALYSES  $1 

H$  TERMINATE  THE  EXECUTION  IF  THE  ONLY  DISCIPLINE  IS  N PS AERO  $1 

1 1  $  $  * 

I  *  $PRINT  (  "LOG«  (  *  NON-PLANAR  STEADY  AERODYNAMICS  *  )  ■  )  ,*  $  ! 

I I  $CALL  STEAD  YNP  (  NONPONLY,  AECOMPS ,  GEOMSA,  STABCF ,  [AIRFORCE],  AEROGEOM,  $! 

1»$  CAROGEOM,  OAGRDLOD  );  $! 

1!$IF  NONPONLY  CALL  EXIT;  $! 

11$  51 

11$  ASSEMBLE  THE  ELEMENT  MATRICES  $! 

11$  TO  THE  SENSITIVITY  MATRICES  $! 

11$  *» 

1 j  $****+*************************************************************************5 1 
1 1  PRINT  {  "LOG**  [ f  PHASE  1  ELEM.  MATRIX  ASSEMBLY')");  1 

1 ! CALL  EMA1  (  NDV,  GLBDES,  DVCT,  KELM,  MELM,  GMKCT,  DKVI,  GMMCT,  DMVI  );  1 

11$***** ********************************************** **♦************************$! 
11$  GENERATE  THE  SIMPLE  LOAD  VECTORS  $1 

11$  AND  LOAD  SENSITIVITIES  51 

11$  ?! 

U $******************************** **********************************************$1 

1 1  PRINT { "LOG- ( 'PHASE  1  STATIC  LOADS  GENER. ')");  ■ 

11CALL  LODGEN  (  GSIZEB,  GLBDES,  DVCT,  DVSIZE,  GMMCT,  DMVI,  TELM,  TREF,  1 

11  SMPLOD,  [DPTHVI] ,  [DPGRVI]  );  * 

1 i §******************************************************************************$ 1 

li*  l\ 

11$  GENERATE  THE  STEADY  AIC  MATRIX  AND  THE  $1 

11$  STEADY  SPLINE  TRANSFORMATION  MATRICES  51 


HANDLE  THE  NON-PLANAR  STEADY  AERODYNAMICS  ANALYSES 
TERMINATE  THE  EXECUTION  IF  THE  ONLY  DISCIPLINE  IS  N PS AERO 
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308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 
325- 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 
3  66 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 
360 

381 

382 

383 

384 

385 

386 

387 

388 


1 I  $  PRINT  ("LOG-  ( ’ STEADY  AERODYNAMICS  ’  )  " )  ;  $ 

11  $LOOP  :»  TRUE;  $ 

1 ! $MINDEX  :«  0;  $ 

1!$WHILE  LOOP  DO  $ 

1 !  $  MIND  EX  MIND  EX  +  1;  $ 

11$  CALL  STEADY  (  MIND  EX,  LOOP,  AE  COMPS ,  GEOMSA,  STABCF,  [AICMAT  (MINDEX)  ]  ,  $ 

1 !  $  [AAICMAT  (MINDEX)  ]  ,  [AIRFRC  (MINDEX)  ]  ,  AEROGEOM,  CAROGEOM  )  ;  $ 

1 ! $ENDDO ;  $ 

1 !  $CALL  SPLINES  (  GSIZEB,  GEOMSA,  AECOMPS,  AEROS ,  [GTKG]  ,  [GSTKG]  );  $ 

11$  $ 

11$  GENERATE  THE  UNSTEADY  AIC  MATRIX  AND  THE  $ 

11$  UNSTEADY  SPLINE  TRANSFORMATION  MATRIX  $ 

1 !  $  ^ 
1!  $PRINT  ("LOG®  (' UNSTEADY  AERODYNAMICS')");  $ 

1!$CALL  UNSTEADY  (  GEOMUA,  AECOMPU,  [AJJTL]  ,  [D1JK]  ,  [D2  JK]  ,  [SKJ],  $ 

1 !  $  AERUGEOM,  CAROUGEO  );  $ 

1!$CALL  AMP  (  [AJJTL],  [D1JK]  ,  [D2  JK]  ,  [SKJ],  [QKKL]  ,  [QKJL]  ,  [QJJL]  );  $ 

1!  $CALL  SPLINEU  (  GSIZEB,  GEOMUA,  AECOMPU,  AERO,  [UGTKG]  );  $ 

lf$  3 

i!$  ZAERO  MODULE  P.  C.  CHEN  3-28-1997  $ 

11$  3 

1 j  $******★***********★***********************************************************$ 

1 !  PRINT  ( "LOG—  ( *  ZAERO  AERODYNAMIC  GEOMETRY ’ )  " )  ; 

1 !  PRINT  ( "LOG-  ( *  ZAERO  AERODYNAMIC  GEOMETRY  * )  ■  )  ; 

11$  CALL  AEROGM  MODULE  $ 

If  $  FOR  BOTH  STEADY  AND  UNSTEADY  GEOMETRY  GENERATIONS  $ 

If  $******************************************************************************$ 
If  CALL  AEROGM  (  AECOMPZ,  GEOMZA,  AGRIDZ  ); 

1 !  PRINT  ( "LOG—  ( *  ZAERO  CONTROL  MODE  MODULE  ’)"),* 

1 1  PRINT  ( "LOG-  ( *  ZAERO  CONTROL  MODE  MODULE  ’)"); 

1 !  CALL  CONMOD  (  GEOMZA, AECOMPZ  ,  [SCNTLG]  ,  [SCNTLK]  ,  [ACNTLG]  ,  [ACNTLK]  ,  [LMODEG]  , 

1!  [LMODEK]  )  ; 

11  PRINT  ("LOG- (’ZAERO  SPLINE  MODULE  ’)"); 

1 !  PRINT  ( "LOG-  (  *  ZAERO  SPLINE  MODULE  ’ )  "  )  ; 

1 ! CALL  SPLINZ  (  GSIZEB,  GEOMZA,  AECOMPZ,  AEROZ,  [UGTKG]  ); 

1 !  $  CALL  ZAEROM  MODULE  $ 

11$  FOR  BOTH  STEADY  AND  UNSTEADY  AIC  GENERATIONS  $ 

1 !  PRINT  ( "LOG-  ( » ZAERO  UNSTEADY  AERODYNAMICS  •  )  "  )  ; 

1 1  PRINT  ( "LOG-  ( *  ZAERO  UNSTEADY  AERODYNAMICS  1 )  " )  ; 

1 !  CALL  U  ZAERO  (AECOMPZ,  GEOMZA,  AGRIDZ,  [AJK]  ,  [AJC]  ,  [AJL]  ,  [QGK]  , 

1!  [SKJ],  [SCNTLK],  [ACNTLK],  [LMODEK]); 

1 !  PRINT  ( "LOG-  ( »  ZAERO  STEADY  AERODYNAMICS  ’  )  " )  ; 

1!  PRINT  ("LOG- (’ZAERO  STEADY  AERODYNAMICS’)  ")  ; 

IfLOOP  TRUE; 

1 ! MINDEX  :«  0; 

1! WHILE  LOOP  DO 
2!  MINDEX  MINDEX  +  1; 

21  CALL  SZAERO  (  [AJK],  MINDEX,  LOOP,  AECOMPZ,  GEOMZA,  AGRIDZ,  STABCF, 

2 !  [AICMAT  (MINDEX)  ]  ,  [AAICMAT  (MINDEX)  ]  ,  [AIRFRC  (MINDEX)  ]  , 

2 1  [SCNTLK]  ,  [ACNTLK]  )  ; 

21ENDD0; 

^  i £**********************************************************★*******************$ 
11$  $ 

U$*********** ************************************************** *****************$ 

1 ! $  BEGIN  OPTIMIZATION  LOOP  $ 

j 1$******************************************************************************$ 

1 2  $  $ 

1 1  IF  NUMOPTBC  >  0  THEN 

2!  PRINT ("LOG- ('*****♦ ************** ***********) «) ; 

2!  PRINT {"LOG* (’BEGIN  OPTIMIZATION’ ) ") ; 

2 !  $  $ 

2 ! $  INITIALIZE  MAPOL  PARAMETERS  $ 

21$  $ 

2!  GLBCNVRG  FALSE; 

2!  APPCNVRG  :«  FALSE; 

2 !  $  $ 

2 ! $  BEGIN  CONVERGENCE  LOOP  $ 

2 !  $  $ 

2!  WHILE  NOT  GLBCNVRG  AND  NITER  <-  MAXITER  DO 

31$  $ 
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433 

434 
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450 
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452 

453 

454 
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456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 


31$ 

31$ 

31 

31 

3! 

31 

31 

31 

3! 

31 

3! 

31 

31 

31$ 

31$ 

31$ 

3! 

4  1 

41$ 

41$ 

41$ 

41$ 

41 

41 

41$ 

41$ 

41$ 

41$ 

41 

4! 

41 

41$ 

41$ 

41$ 

41$ 

4! 

41$ 

4! 

41 

41 

41$ 

41$ 

41$ 

41 

41 

4! 

51 

5! 


NITER  :»  NITER  +  1? 

PRINT (  "LOG- ( - - 1  )  ")  * 

PRINT { "LOG-  {  *  DESIGN  ITERATION  M3)  ",  NITER)  ; 

CALL  ITERINIT  {  NITER,  CONST  ) ; 

CALL  UTMPRG  (  [GLBSIG]  ) ? 

CALL  TCEVAL  (  NITER,  NDV,  MOVLIM,  WINDOW,  GLBDES,  LOCLVAR,  [PMINT] , 

[ PMAXT ] ,  TFIXED,  CONST  ); 

CALL  LAMINCON  (  NITER,  NDV,  DCONLAM,  DCONLMN ,  DCONPMN,  TFIXED,  GLBDES, 
LOCLVAR,  [PTRANS],  CONST  ); 

CALL  EMA2  {  NITER,  NDV,  GSIZEB,  GLBDES,  GMKCT,  DKVI,  [KIGG], 

GMMCT,  DMVI,  [M1GG]  ); 

BEGIN  BOUNDARY  CONDITION  LOOP  FOR  OPTIMIZATION 

FOR  BC  -  1  TO  NUMOPTBC  DO 

PRINT ( "LOG- { *  BOUNDARY  CONDITION  ',13)", BC); 

ESTABLISH  THE  BASE  USET  AND  PARTITIONING  DATA  FOR  THE  BC 

THIS  DATA  MUST  BE  RECREATED  EACH  ITERATION  SINCE  GDR  CAN  CHANGE  IT 

CALL  MKUSET{  BC,  GSIZEB,  [YS(BC)],  (TMN(BC)],  [PGMN (BC) ] ,  [PNSF(BC)], 
[PFOA(BC)],  [PARL (BC) ] ,  USET(BC)  ); 

MAKE  B.C. -DEPENDENT  BGPDT  FROM  BASE,  ADDING  THE  EXTRA  POINTS  FOR 
THIS  B.C. 

CALL  BCBGPDT (  BC  ,  GSIZEB  ,  BGPDT (BC)  ,  ESIZE(BC)  ); 

GSIZE  GSIZEB; 

PSIZE(BC)  ESIZE(BC)  +  GSIZE; 

PROCESS  MATRICES,  TRANSFER  FUNCTIONS,  AND  INITIAL  CONDITIONS  FOR 
THIS  B.C. 

CALL  BCBULK (  BC  ,  PSIZE(BC)  ,  BGPDT (BC)  ,  USET(BC)  ); 

CALL  BOUND  (  BC,  GSIZE,  ESIZE(BC),  USET(BC),  BLOAD,  BMASS,  DMODES, 
BMODES,  BSAERO,  BFLUTR,  BDYN,  BDRSP,  BDTR,  BMTR,  BDFR, 
BMFR,  BGUST,  BBLAST,  NMPC,  NS PC,  NOMIT,  NRSET ,  NGDR  ) ; 

DETERMINE  IF  ANY  M2GG/K2GG  INPUT  DATA  ARE  TO  BE  ADDED 

CALL  NULLMAT  (  [KGG] ,  [MGG]  )? 

CALL  MK2GG  {  BC,  GSIZEB,  (M2 GG]  ,  M2 GG FLAG,  [K2GG] ,  K2GGFLAG  ); 

IF  M2 GG FLAG  THEN 

[MGG]  :=  [M1GG]  +  [M2GG] ; 

ELSE 


$1 

$1 

$! 

j 

I 

$1 

$1 

$1 

$1 


$1 

$1 

$1 

$1 


$1 

$1 

$1 

$1 

i 

$1 


$1 

$1 

$1 


51 

5! 

41 

51 

5! 

51 

51 

41$ 

41$ 

41$ 

41 

41$ 

41 

5! 


[MGG]  [M1GG] ; 

ENDIF;  ! 

IF  K2GGFLAG  THEN  ! 

[KGG]  :*  [KIGG]  +  [K2GG] ;  1 

E>T  CP 

[KGG]  :«  [KIGG];  1 

ENDIF;  ! 

$1 

CALL  THE  GRID  POINT  WEIGHT  GENERATOR  FOR  THIS  BOUNDARY  CONDITON  $1 

$1 

CALL  GPWG  (  NITER,  BC,  GPWGGRID,  [MGG] ,  OGPWG  ) ;  1 

$1 

IF  BLOAD  <>  0  CALL  GTLOAD  (NITER,  BC,  GSIZE,  BGPDT (BC) ,  GLBDES,  1 

SMPLOD,  [DPTHVI],  [DPGRVI] ,  [PGJ ,  OGRIDLOD) ; 1 


41$  PARTITION-REDUCTION  OF  GLOBAL  MATRICES  $! 

41$  $I 

4 i $******************************  TAKEN  OUT  FOR  ZAERO  ***************************$!  4* 
4!$  IF  NUMOPTBC  >  1  CALL  NULLMAT  <  [KNN]  ,  [PN]  ,  [MNN]  ,  $! 

41$  [GTKN]  ,  [GSTKN]  ,  [UGTKN]  );  $! 

4  j  IP  NUMOPTBC  >  1  CALL  NULLMAT  (  [KNN]  ,  [PN]  ,  [MNN]  ,  [UGTKN]  )  ;  !  4* 


41  IF  NMPC  <>  0  THEN  ! 

5t$  ,  ?; 

51$  PERFORM  MPC  REDUCTION  $• 

51$  ?i 

51  PRINT ( "LOG= ( 1  MPC  REDUCTION') ") J  ! 

51  CALL  GREDUCE  (  [KGG],  [PG] ,  [PGMN(BC) ] ,  [TMN (BC) J ,  [KNN],  [PN]  );  1 

5!  IF  BMASS  <>  0  CALL  GREDUCE  {  [MGG] ,,[ PGMN (BC) ] ,  [TMN(BC)],  [MNN]  );! 

5 I $******************************  TAKEN  OUT  FOR  ZAERO  ***************************$!  4- 
5!$  IF  BSAERO  O  0  THEN  $! 

51  $  CALL  GREDUCE  (,  [GTKG] ,  [PGMN (BC) ] ,  [TMN (BC) ] ,  ,  [GTKN]);  $! 

5!$  CALL  GREDUCE  (,  [GSTKG] ,  [PGMN  (BC)  ]  ,  [TMN  (BC)  ]  ,  ,  [GSTKN]);  $! 
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1$  ENDIF;  $ 

|  $***********************************************************************♦******$ 
|  IF  BFLUTR  O  0  OR  BGUST  O  0  OR  BBLAST  O  0  OR  BSAERO  O  0 

!  CALL  GREDUCE  (,  [UGTKG] ,  [PGMN(BC)],  [TMN (BC) ] ,  , [UGTKN]  ); 

!  ELSE 

!$  $ 

!  $  NO  MPC  REDUCTION  $ 

1  $  $ 

!  [KNN]  [ KGG] ; 

!  IF  BLOAD  <>  0  [PN]  £PG] ; 

!  IF  BMASS  <>  0  [MNN]  :«  [MGG] ; 

f $******************************  TAKEN  OUT  FOR  EAERO  **************★★***********$ 
!  $  IF  BSAERO  O  0  THEN  $ 

!  $  [GTKN]  :*  [GTK G] ;  $ 

!$  [GSTKN]  :m  [GSTKG] ;  $ 

!  $  ENDIF;  $ 

J  IF  BFLUTR  O  0  OR  BGUST  O  0  OR  BBLAST  O  0  OR  BSAERO  OO 

I  [UGTKN]  :*  [UGTKG] ; 

!  ENDIF; 

!$  $ 

!$  PERFORM  AUTOS  PC  CALCULATIONS  ON  THE  KNN  MATRIX  $ 

!$  $ 

!  PRINT ("LOG* ( 1  AUTOS PC  COMPUTATIONS 1 ) ") ; 

J  CALL  GPSP  (  NITER/  BC,  NGDR,  [KNN],  BGPDT(BC),  (YS(BC)], 

!  USET(BC),  GPST(BC)  ); 

!  CALL  MKPVECT  (  USET(BC),  [PGMN { BC) ] ,  [PNSF{BC)], 

!  [PFOA (BC) ] ,  [ PARL { BC ) ]  }; 

!  CALL  BOUNDUPD  (  BC,  GSI2E,  ESIZE{BC),  USET{BC},  NSPC,  NOMIT,  NRSET  ); 

!$  $ 

!$  FOR  SENSITIVITY  ANALYSIS,  SAVE  A  COPY  OF  THE  PRE-GDR  PART.  VECTS.  $ 

!  $  $ 

!  CALL  MKPVECT  (  USET(BC),  [PGMNS{BC)J,  [PNSFS(BC)), 

1  [PFOAS (BC) ] ,  [ PARLS (BC) ]  ); 

!  $  $ 

|  $******************************  TAKEN  OUT  FOR  EAERO  *****★★★*★****★*★*★***★*★**$ 
!$  IF  NUMOPTBC  >  1  CALL  NULLMAT  (  [KFF]  ,  [PF]  ,  [MFF]  ,  [GTKF]  ,  [GSTKF]  ,  $ 

!$  [UGTKF]  );  $ 

I $*************★**********************************+****************★*****★******$ 

f  IF  NUMOPTBC  >  1  CALL  NULLMAT  (  [KFF]  ,  [PF]  ,  [MFF]  ,  [UGTKF]  )  ; 

!  IF  NSPC  <>  0  THEN 

!$  $ 

1$  PERFORM  SPC  REDUCTION  $ 


[MFF]  ); 


I  PRINT ( "LOG- { *  SPC  REDUCTION') w) ; 

!  CALL  NREDUCE  (  [KNN],  [PN] ,  [PNSF(BC)],  [YS(BC}],  [KFF],  [ KFS] , 

!  [KSS],  [PF],  [PS]  ); 

!  IF  BMASS  <>  0  CALL  NREDUCE  {  [MNN],  ,  [PNSF(BC}]f  ,  [MFF]  ); 

j $*** ****** ************ *********  TAKEN  OUT  FOR  EAERO  ***★*★★★*★***★***★*★**★★♦*★$ 
( $  IF  BSAERO  O  0  THEN  $ 

t  $  CALL  NREDUCE  (  ,  [GTKN],  [PNSF(BC)],  ,  ,  ,  ,  [GTKF]  );  $ 

!  $  CALL  NREDUCE  (  ,  [GSTKN] ,  [PNSF (BC) ],,,,,  [GSTKF]  )  ;  $ 

!  $  ENDIF;  $ 

|  $********★***★*★**************★*★****★★************★**★***★*****************★★*$ 
!  IF  BFLUTR  O  0  OR  BGUST  O  0  OR  BBLAST  O  0  OR  BSAERO  O  0 

!  CALL  NREDUCE  (, [UGTKN],  [PNSF (BC) J , , , , ,  [UGTKF]); 


NO  SPC  REDUCTION 


!  [KFF]  [KNN];  1 
!  IF  BLOAD  <>  0  [PF]  :«  [PN] ;  ! 
!  IF  BMASS  <>  0  [MFF]  :*  [MNN];  1 

t $******************************  TAKEN  OUT  FOR  EAERO  ***************************$! 
!$  IF  BSAERO  O  0  THEN  $! 
1$  [GTKF]  [GTKN];  $! 
!$  [GSTKF]  :«  [GSTKN];  $! 
!$  ENDIF;  $! 
|  $★***************★★★**** ******************★*★*****★********★**★***★**★★********$ ( 
!  IF  BFLUTR  O  0  OR  BGUST  O  0  OR  BBLAST  O  0  OR  BSAERO  O  0  ! 
!  [UGTKF]  :*  [UGTKN] ;  ! 


IF  NUMOPTBC  >  1  CALL  NULLMAT  {  [KAA] ,  [PA],  [MAA] , 

[KAAA] ,  [PAA],  [UGTKA]  ); 

IF  NGDR  <>  0  THEN 

PERFORM  THE  GENERAL  DYNAMIC  REDUCTION  WHICH  IS  DISCIPLINE 
INDEPENDENT.  THE  RESULTING  [GSUBO]  MATRIX  WILL  BE  USED  BY 
ALL  DISCIPLINES 


57 


551 

5 !  $ 

552 

5! 

553 

51$ 

554 

51$ 

555 

51$ 

556 

5! 

557 

51 

558 

5! 

559 

5! 

560 

51 

561 

5! 

562 

51$ 

563 

51$ 

564 

51$ 

565 

51$ 

566 

51$ 

567 

51 

568-' 

61 

569 

61 

570 

6! 

571 

61 

572 

5! 

573 

51 

574 

5! 

575 

51 

576 

51 

577 

51 

578 

5! 

579 

51 

580 

5! 

581 

41$ 

582 

4! 

583 

51$ 

584 

51$ 

585 

51$ 

586 

51 

587 

61$ 

588 

61$ 

589 

61$ 

590 

61 

591 

61$ 

592 

6! 

593 

6! 

594 

61 

595 

6! 

596 

7! 

597 

7! 

598 

71 

599 

61 

600 

61 

601 

71$ 

602 

71$ 

603 

71$ 

604 

7! 

605 

71$ 

606 

71 

607 

71 

608 

71$ 

609 

7! 

610 

81$ 

611 

81$ 

612 

81$ 

613 

81 

614 

8! 

615 

81 

616 

8! 

617 

8! 

618 

8! 

619 

7! 

620 

8! 

621 

8! 

622 

81 

623 

8! 

624 

81 

625 

71 

626 

71$ 

627 

71$ 

628 

71$ 

629 

71 

630 

7! 

631 

71 

PRINT  ( "LOG**  ( 1  DYNAMIC  REDUCTION’)"); 

OBTAIN  THE  OMITTED  DOF  PARTITION  OF  KFF  AND  MFF 

CALL  PARTN  {  [KFF],  [KOO] ,  ,  [KOA] ,  ,  [PFOA(BC) ]  }? 

CALL  PARTN  {  [MFF],  [MOO],  ,  ,  ,  [PFOA(BC)]  ); 

ASIZE  GSIZE  -  NMPC  -  NSPC  -  NOMIT; 

LSIZE  :=  ASIZE  -  NRSET; 

CALL  GDR1  (  [KOO],  [MOO],  [KSOO] ,  [GGO] ,  LKSET,  LJSET,  NEIV, 
FMAX,  BC,  BGPDT(BC),  USET(BC) ,  NOMIT,  LSIZE  ); 

LKSET  MEANING 

<>  o  APPROX.  MODE  SHAPES  SELECTED 

.  0  NO  APPROX.  MODE  SHAPES  IN  GDR 


$1 

\ 

$1 
$ ! 
$1 


$1 

$1 

$1 

$! 

$! 


IF  LKSET  <>  0  THEN 

CALL  SDCOMP  (  [KSOO],  [LSOOJ ,  USET(BC),  SINGOSET  ); 

CALL  GDR2  {  [LSOO] ,  [MOO],  [PHIOK],  LKSET,  LJSET, 

NEIV,  FMAX,  BC  ) ; 

ENDIF; 

CALL  GDR3  (  [KOO],  [KOA],  [MGG] ,  [PHIOK],  [TMN (BC) ] ,  [GGO], 

[PGMN(BC)  ] ,  [PNSF(BC)],  [PFOA(BC)],  [GSUBO(BC)], 
BGPDT(BC),  USET(BC), 

LKSET,  LJSET,  ASIZE,  GNORM,  BC  ) ; 

CALL  GDR4  (  BC,  GSIZE,  PSIZE(BC),  LKSET,  LJSET,  NUMOPTBC,  NBNDCOND, 
[PGMN(BC)],  [TMN (BC) ] ,  [PNSF(BC)],  [PFOA(BC)], 

,  .  [PARL (BC)  ] ,  [PGDRG (BC) ] ,  [PAJK],  [PFJK],  BGPDT(BC), 
USET(BC)  ); 

ENDIF; 

IF  BLOAD  <>  0  OR  BMODES  <>  0  OR  BFLUTR  <>  0  OR  BDYN  <>  0  THEN 
REDUCE  THE  MATRICES  WITHOUT  AEROELASTIC  CORRECTIONS 
IF  NGDR  <>  0  THEN 

PERFORM  THE  GENERAL  DYNAMIC  REDUCTION 

PRINT ( "LOG® ( *  SYMMETRIC  DYNAMIC  REDUCTION ' ) "} ? 

[MAA]  :=  TRANS  {  [GSUBO (BC)]  )  *  [  [MFF]  *  [GSUBO {BC}]  ]; 

[KAA]  TRANS  (  [ GSUBO (BC)]  )  *  [  [KFF]  *  [GSUBO(BC)]  ]; 

IF  BLOAD  <>  0  [PA]  TRANS  {  [GSUBO(BC)]  )  *  [PF]; 

IF  BFLUTR  <>  0  OR  BGUST  <>  0  OR  B BLAST  <>  0  THEN 
[TMPl]  ;=  TRANS  (  [UGTKF]  )  *  [GSUBO(BC)]? 

CALL  TRNSPOSE  {  [TMPl],  [UGTKA]  ); 

ENDIF; 

ELSE 

IF  NOMIT  <>  0  THEN 

PERFORM  THE  STATIC  REDUCTION 

PRINT { "LOG- { *  STATIC  CONDENSATION') ") ; 

CALL  FREDUCE  (  [KFF],  (PF] ,  [PFOA(BC)  ] ,  ,  [KOOINV(BC)] ,  , 
[GSUBO(BC) 3 ,  [KAA],  [PA],  [PO],  USET(BC)  ); 

IF  BMASS  <>  0  THEN 


$1 

j 

$1 

$1 

51 

i 

5! 

5! 

$1 

i 

5! 


5! 
$ ! 
51 

i 

51 

i 

i 

5! 


PERFORM  GUYAN  REDUCTION  OF  THE  MASS  MATRIX 

CALL  PARTN  (  [MFF],  [MOO],  ,  [MOA] ,  [MAABAR] ,  [PFOA{BC) ] 
[MAA]  :=  [MAABAR]  +  TRANS ( [MOA] )  *  [GSUBO{BC>]  + 

TRANS ( [GSUBO (BC) ] )  *  [MOA]  + 

TRANS ( [GSUBO (BC) ])  *  [  [MOO]  *  [GSUBO ( BC) ]  ]? 

IF  NRSET  <>  0  [ I FM ( BC ) ]  ;=  [MOO]  *  [GSUBO(BC)]  +  [MOA]; 
ENDIF; 

IF  BFLUTR  <>  0  OR  BGUST  <>  0  OR  BBLAST  <>  0  THEN 

CALL  ROWPART  (  [UGTKF],  [UGTKO] ,  [UGTKAB] ,  [PFOA(BC)]  ); 
[TMPl]  ;=  TRANS (  [UGTKO]  )  *  [ GSUBO { BC)] ; 

CALL  TRNSPOSE  {  [TMPl],  [TMP2]  )? 

[UGTKA]  [UGTKAB]  +  [TMP2 ] ; 

ENDIF? 

ELSE 

NO  F-SET  REDUCTION 


5! 

51 

)?! 


5! 

51 

5! 


[KAA]  [KFF];  ; 

IF  BLOAD  <>  0  [PA]  :«  [PF] ; 

IF  BFLUTR  <>  0  OR  BGUST  <>  0  OR  BBLAST  <>  0  [UGTKA]  : a  [UGTKF]  ;  1 


58 


632 

7! 

IF  BMASS  <>  0  [MAA]  :«  [MFFj ; 

! 

633 

7! 

ENDIF; 

i 

634 

6! 

ENDIF; 

1 

635 

51$ 

$  1 

636 

5! 

IF  NRSET  <>  0  THEN 

i 

637 

61$ 

$1 

638 

6  i  § 

PERFORM  THE  SUPPORT  SET  REDUCTION 

$1 

639 

6 !  $ 

$1 

640 

61 

PRINT ("LOG* { *  SUPPORT  REDUCTION ') ") ; 

i 

641 

6! 

IF  NITER  -  1  THEN 

j 

642 

71 

CALL  PARTN  {  [KAA] ,  [KRR]  ,  [ICLR] ,  ,  [KLL]  ,  (PARL(BC) )  )? 

j 

643 

7! 

CALL  SDCOMP  (  [KLL],  [KLLINV (BC) ) ,  USET{BC),  SINGLSET  }; 

I 

644 

7! 

CALL  FBS  (  [KLLINV (BC) ),  [KLR] ,  [D[BCJ],  -1  ); 

! 

645 

7! 

CALL  RBCHECK  {  BC,  USET(BC) ,  BGPDT(BC),  [D (BC) ] ,  [KLL] , 

i 

646 

7! 

[KRR] ,  [KLR]  ); 

• 

647 

71 

ELSE 

t 

648 

71 

IF  BLOAD  <>  0  THEN 

j 

649  *' 

8! 

CALL  PARTN  (  [KAA] ,  ,  [KLR],  ,  [KLL],  [ PARL { BC ) ]  ); 

i 

650 

81 

CALL  SDCOMP  {  [KLL],  [KLLINV(BC) ] ,  USET{BC),  SINGLSET  ); 

i 

651 

8! 

ENDIF; 

i 

652 

7! 

ENDIF; 

i 

653 

61$ 

$  1 

654 

61  $ 

CALCULATE  THE  REDUCED  MASS  MATRIX 

$1 

655 

61$ 

$1 

656 

6! 

CALL  PARTN  ([MAA],  [MRRBAR] ,  [MLR],  ,  [MLL] ,  [PARL (BC) ] ) ; 

i 

657 

61 

[ IFR(BC) ]  :«  [MLL]  *  [D (BC) ]  +  [MLR]; 

i 

658 

6! 

[MRR(BC) ]  [MRRBAR)  +  TRANS  (  [MLR]  )  *  [D(BC)3  + 

1 

659 

6! 

TRANS  (  [D{BO]  )  *  [IFR(BC)]; 

i 

660 

61 

[R22]  TRANS  (  [D(BC)]  )  *  [MLR]  +  [MRRBAR]; 

t 

661 

61$ 

6! 

662 

61 

IF  BLOAD  <>  0  THEN 

! 

663 

71$ 

$1 

664 

71$ 

PROCESS  STATICS  WITH  INERTIA  RELIEF 

$1 

665 

71$ 

$1 

666 

7! 

PRINT ( 

1 

667 

71 

"LOG-r  »>DISCIPLINE:  STATICS  (INERTIA  RELIEF)  ')  ") 

;  1 

668 

71 

CALL  ROWPART  (  [PA],  [PR],  [PL BAR] ,  [PARL (BC) ]  ); 

1 

669 

71 

[LHS(BC)]  [MRR(BC) ] ; 

1 

670 

7! 

[RHS (BC) ]  TRANS ([D(BC)])  *  [PLBAR]  +  [PR]; 

i 

671 

71 

CALL  INERTIA  (  [LHS{BC)3,  [RHS(BC)],  [AR]  ); 

i 

672 

71 

[AL]  :«  [ D ( BC ) )  *  [AR]; 

j 

673 

7! 

CALL  ROWMERGE  (  [AA] ,  [AR] ,  [AL],  [PARL (BC) J  ); 

t 

674 

7! 

(RHS (BC) ]  [PLBAR]  -  [IFR(BC)J  *  [AR] ; 

j 

675 

7! 

CALL  FBS  (  [KLLINV  (BC)  ) ,  *[RHS(BC)],  [UL]  ); 

i 

676 

71 

CALL  YSMERGE  (  [UA] ,  ,  [UL],  [ PARL (BC) ]  ); 

\ 

677 

7! 

ENDIF; 

i 

678 

6! 

IF  BMODES  <>  0  THEN 

j 

679 

71 

PRINT  (  "LOG-  ( •  »>DISCI  PLINE:  NORMAL  MODES ')")  ; 

i 

680 

71 

CALL  RE I G  (  NITER,  BC,  USET(BC),  [KAA],  [MAA],  [MRR(BC) ] , 

i 

681 

71 

[D(BC) ] ,  LAMBDA,  [PHIA],  [Mil],  HSIZE(BC)  ); 

j 

682 

7! 

CALL  OFPMROOT  {  NITER,  BC,  NUMOPTBC,  LAMBDA  ) ; 

j 

683 

71 

CALL  FCEVAL  (  NITER,  BC,  LAMBDA,  CONST  ) ; 

j 

684 

7! 

ENDIF; 

j 

685 

6! 

ELSE 

j 

686 

61$ 

$1 

687 

61$ 

NO  SUPPORT  SET  REDUCTION 

$! 

688 

61$ 

$1 

689 

6! 

IF  BLOAD  <>  0  THEN 

1 

690 

71 

PRINT  { "LOG*  ( *  >»DISCIPLINE:  STATICS1)"); 

i 

691 

7! 

CALL  SDCOMP  {  [KAA],  [KLLINV (BC) ] ,  USET(BC),  SINGASET  ); 

j 

692 

71 

CALL  FBS  (  [KLLINV (BC) ] ,  [PA],  [UA]  ); 

! 

693 

71 

ENDIF; 

1 

694 

6! 

IF  BMODES  <>  0  THEN 

1 

695 

71 

PRINT { "LOG- ( '  »>DISCI  PLINE:  NORMAL  MODES ')") ; 

696 

7! 

CALL  REIG  (  NITER,  BC,  USET(BC),  [KAA],  [MAA],  ,  ,  LAMBDA, 

697 

71 

[PHIA],  [Mil],  HSIZE(BC)  ); 

698 

71 

CALL  OFPMROOT  {  NITER,  BC,  NUMOPTBC,  LAMBDA  ); 

699 

71 

CALL  FCEVAL  (  NITER,  BC,  LAMBDA,  CONST  ) ; 

700 

7! 

ENDIF; 

701 

6! 

ENDIF; 

702 

5! 

ENDIF; 

1 

703 

4  1 

IF  BSAERO  <>  0  THEN 

i 

704 

51$ 

$1 

705 

51$ 

PERFORM  STATIC  AEROELASTIC  ANALYSES 

$  1 

706 

51$ 

$1 

707 

51 

PRINT ( "LOG- ( *  SAERO  INITIALIZATION')"); 

708 

5! $******************************  TAKEN  OUT  FOR  ZAERO  **********•*****************$! 

709 

51$ 

CALL  TRNSPOSE  (  [GSTKF] ,  [GSKF]  )  ; 

$! 

710 

5 i $*************************************************************★****★****★******$ 1 

711 

5! 

CALL  TRNSPOSE  (  [UGTKFJ ,  [GSKF]  ); 

1 

712 

51 

LOOP  :*  TRUE; 

1 

59 


771 

9! 

IF  NRSET  <>  0 

772 

10! 

[IFMA(BC,SUB)]  :=  [MOO] * [GASUBO ( BC, SUB) ]  +  [MOA]  ; 

773 

9! 

ENDIF; 

774 

8! 

ELSE  3 

775 

8!$ 

5 

776 

8 !  § 

NO  F-SET  REDUCTION  $ 

777 

8 !  $ 

$ 

778 

8! 

IF  NITER  *  1  AND  SUB  *  1  AND  NRSET  <>  0  AND  BLOAD  =  0  AND 

779 

9! 

BMODES  “  0  AND  BFLUTR  -  0  AND  BDYN  “  0  THEN 

780 

9!  $ 

$ 

781 

9i$ 

FORM  [KAA]  ON  FIRST  PASS  SO  [D]  CAN  BE  FORMED  $ 

782 

9!  $ 

$ 

783 

9! 

[KAA]  :»  [KFF] ; 

784 

92 

ENDIF; 

785 

8! 

[KAAA]  [KAFF); 

786 

8! 

[MAAA]  :*  [MFF); 

787 

8! 

[PAA]  :=  [PAF]  ; 

788 

8! 

ENDIF; 

789 

7! 

ENDIF; 

790 

6!  $ 

$ 

791 

6! 

IF  NRSET  <>  0  THEN 

7  92 

7!$ 

§ 

793 

7!$ 

PERFORM  THE  SUPPORT  SET  REDUCTION  $ 

60 


794 

795 

796 

797 

798 

799 

800 
801 
802 

803 

804 

805 

806 

807 

808 

809 

810 
811*' 
812 

813 

814 

815 

816 

817 

818 

819 

820 
821 
822 

823 

824 

825 

826 

827 

828 

829 

830 

831 

832 

833 

834 

835 

836 

837 

838 

839 

840 

841 

842 

843 

844 

845 

846 

847 

848 

849 

850 

851 

852 

853 

854 

855 

856 

857 

858 

859 

860 
861 
862 

863 

864 

865 

866 
867 
668 

869 

870 

871 

872 

873 

874 


71$  $! 
7 1  PRINT ( "LOG- ( 1  SAERO  SUPPORT  REDUCTION 1 )  ") ;  ! 
71$  $ ! 
7!  IF  NITER  -  1  AND  SUB  -  1  AND  BLOAD  -  0  AND  B MODES  -  0  AND  ! 
8!  BFLUTR  -  0  AND  BDYN  -  0  THEN  ! 
8  !  $  $ ! 
8 ! $  [D]  WAS  NOT  COMPUTED  FOR  NON-SAERO  DISCIPLINES  SO  $! 
81$  NEED  TO  COMPUTE  IT  NOW  Si 
81$  Si 


8!  CALL  PARTN  (  [KAA] ,  [KRR] ,  [KLR] ,  ,  [KLL] ,  [PARL(BC)]  ); 

81  CALL  SDCOMP  {  [KLL],  [KLLINV(BC) ] ,  USET{BC),  SINGLSET  ); 


81  CALL  FBS  (  [KLLINV(BC) ] ,  [KLR],  [D(BC}],  -1  )  ;  ! 
8!  CALL  RBCHECK  {  BC,  USET{BC),  BGPDT(BC),  [D(BCJ],  [KLL],  i 
81  [KRR] ,  [KLR]  );  1 
8!  ENDIF;  ! 
7  i  $  $! 
71$  CALCULATE  THE  REDUCED  MASS  MATRIX  Si 
71$  51 
71  CALL  PARTN  ( [MAAA] ,  [MRRBAR] ,  [MLR],  ,  [MLL] ,  [PARL[BC) ] ) ;  1 
71  [R13  (BC,  SUB)  ]  :**  [MLL]  *  [D  ( BC)  )  +  [MLR];  1 
71  [R33]  [MRRBAR]  +  TRANS  (  [MLR]  )  *  [D (BC) ]  +  1 
71  TRANS  {  [D { BC) )  )  *  [R13 ( BC, SUB) ) ;  1 
7!  [R22]  TRANS  (  [D{BC)]  }  *  [MLR]  +  [MRRBAR];  1 
71  CALL  TRNS POSE  (  [R13 (BC, SUB)  ) ,  [R21 (BC,SUB) )  );  1 
71$  Si 
71$  PROCESS  STEADY  AEROELASTIC  DISCIPLINE  S! 
71$  Si 


71 
71 
7  1 
71 
71 
71$ 

7! 

71$ 

7! 

7! 

71 
71 
71 
7  1 
71$ 

71 

7! 

71 

71 

71 

7! 

71 

7! 

71 

71$ 

71 

7! 

7! 

7! 

7! 

71 

7! 

7 i $******* 

71 

71 

71 

71 

7 i $**★***< 

71 
71 
7  1 
71 
71 
71 
71 
71 
7! 

8! 

8! 

8! 

81 

8! 

8! 

81 


PRINT  ( "LOG-  ( '  >»DISCI  PLINE:  STEADY  AERO  ’)")  ; 

CALL  PARTN  {  [KAAA] ,  [KARR],  [R12 (BC, SUB) ] ,  [KARL],  [R1I], 
[PARL (BC) )  )  ; 

[R32 (BC, SUB) ]  TRANS ( [ D ( BC ) ] )  *  [R12 (BC, SUB) ]  +  [KARR]; 

[R31 (BC, SUB) ]  TRANS ([D(BC)]J  *  [Rll]  +  [KARL] ; 

CALL  DECOMP  (  [Rll],  [RL11 (BC, SUB) ] ,  [RU11 (BC, SUB) ]  ); 

CALL  ROWPART  (  [PAA],  [PARBAR] ,  [PAL],  [ PARL (BC) ]  ); 

CALL  GFBS  (  [RL11 (BC, SUB) ] ,  [RU11 (BC,SUB) ] ,  [PAL], 

[Rll PAL (BC, SUB) ]  ,  -1); 


[PRIGID] 

[PI] 

[P2] 


[PARBAR]  +  TRANS  ([D(BC)])  *  [PAL]; 

[R2 1 (BC, SUB) ]  *  [Rll PAL ( BC, SUB) ] ; 

[PRIGID]  +  (R31(BC,SUB) ]  *  [R1 1PAL (BC, SUB) ] ; 


CALL  GFBS  (  [RL11 (BC,SUB) ] ,  [RU11 (BC, SUB) ] ,  [R12 (BC, SUB) ] , 
[Rll  12  (BC,  SUB)  ] ,  -1); 

CALL  GFBS  (  [RL1 1 ( BC, SUB) ] ,  [RU1 1 ( BC, SUB) ] ,  [R13 (BC, SUB) ] , 
[R1113 (BC, SUB) ] ,  -1); 


[KU] 

[K12 (BC, SUB) ] 
[K21 (BC, SUB) ] 

[K22  ] 


[R22]  +  [R21 (BC,SUB) ]  *  [R1112 (BC, SUB) ] ; 
[R21  (BC,SUB) ]  *  [R1113 (BC, SUB) ] ; 

[R32 (BC, SUB) ]  + 

[R31 (BC,SUB) ]  *  [R1112 (BC,SUB) ] ; 

[R33]  +  [R31 (BC, SUB) ]  *  [R1113 (BC,SUB) ] ; 


CALL  DECOMP  (  [Kill r  [KL11(BC,  SUB) ] ,  [KU11 (BC, SUB) ]  ); 

CALL  GFBS  (  [KL1 1 ( BC, SUB) ] ,  [KU11 (BC, SUB) ] ,  [PI] , 

[PAR (BC, SUB) ]  )  ; 

CALL  GFBS  {  [KL11 ( BC, SUB) ] ,  [KU1 1 ( BC, SUB) ] ,  [K12 ( BC, SUB) ] ,  ! 

[K1112 (BC,SUB) ]  ,-l) ; 

[LHSA ( BC, SUB) ]  [K22]  +  [K21 (BC, SUB) ]  *  [K1112 (BC,SUB) ] ; 

[RHSA(BC,SUB) ]  [P2]  -  [K21 (BC,SUB) ]  *  [ PAR( BC, SUB) ] ; 

************  CALL  SAERO  NOW  1  *************************************★***$ 
CALL  SAERO  (  NITER,  BC,  MINDEX,  SUB,  SYM,  QDP,  STABCF, 

BGPDT(BC),  [LHSA(BC, SUB) ] ,  [RHSA(BC,SUB) ] ,  [AAR], 
[DELTA(SUB) ] ,  [PRIGID],  [R33] , 

CONST,  AEFLG(SUB) ,  [AARC] ,  [DELC] ) ; 

***************************♦*******************************************$ 
[AAL]  [D(BC)J  *  [AAR]; 

CALL  ROWMERGE  (  [AAA (SUB) ] ,  [AAR],  [AAL],  [PARL (BC) ]  ); 

[UAR]  [K1112 (BC,SUB) ]  *  [AAR]  +  [PAR( BC,SUB) ]  * 

[DELTA (SUB) ] ; 

[UAL]  :«  [R1112 (BC, SUB) ]  *  [UAR]  +  [R1113 (BC, SUB) J  *  [AAR] 

-  [R11PAL (BC, SUB) ]  *  [DELTA (SUB) ] ; 

CALL  ROWMERGE  (  [UAA(SUB)],  [UAR],  [UAL],  [PARL ( BC) )  };  ! 

IF  NOMIT  <>  0  [ PAO (SUB) ]  [POARO (BC,  SUB) ]  *  [DELTA (SUB) ]  ; 

IF  AEFLG (SUB)  THEN 

[AAL]  [D (BC) ]  *  [AARC]; 

CALL  ROWMERGE  (  [AAAC(SUB)],  [AARC],  [AAL],  [PARL (BC) ]  ); 
[UAR]  :*  [Kll 12 (BC, SUB) ]  *  [AARC]  +  [ PAR (BC, SUB) ]  * 

[DELC] ; 

[UAL]  [R1112 (BC, SUB)  ]  *  [UAR]  +  1 

[R1113 (BC, SUB) ]  *  [AARC]  -  1 

[Rll PAL (BC, SUB)]  *  [DELC];  1 


61 


875 

8! 

CALL  ROWMERGE  (  [UAAC(SUB)],  [UAR] ,  [UAL],  [PARL(BC)]  ); 

i 

876 

8! 

IF  NOMIT  <>  0  [PAOC (SUB) ]  :«  [POARO (BC, SUB) ] * [DELC]  ? 

r 

877 

8! 

ENDIF; 

i 

878 

7! 

ELSE 

879 

71$ 

$  1 

880 

71$ 

NO  SUPPORT  SET  REDUCTION 

$  1 

881 

71$ 

PROCESS  STEADY  AEROELASTIC  DISCIPLINE 

$! 

882 

71$ 

$  1 

883 

71 

PRINT ( "LOG- ( 1  »>DISCIPLINE:  STEADY  AERO')")/ 

1 

884 

71$ 

. 

$  1 

885 

7! 

ENDIF; 

886 

61 

ENDDO; 

1 

887 

5! 

ENDIF; 

J 

888 

41$ 

$  1 

889 

41$ 

PERFORM  ANY  DYNAMIC  ANALYSES  —  NOTE  THAT  THESE  ARE  INDEPENDENT 

$1 

890 

41$ 

OF  THE  SUPPORT  SET 

$  ! 

891 

41$ 

$  1 

8  92 

41 

IF  BDYN  <>  0  THEN 

i 

8  93 

5! 

IF  BFLUTR  <>  0  THEN 

i 

894 

6! 

PRINT  ("LOG=  { »  >»DISCIPLINE :  FLUTTER* )  "}  i 

j 

895 

6! 

SUB  : *  0 ; 

i 

896 

61 

LOOP  :*=  TRUE; 

t 

8  97 

61 

WHILE  LOOP  DO 

i 

898 

71 

SUB  :»  SUB  +  1; 

j 

899 

71 

CALL  FLUTDRV  (  BC,  SUB,  LOOP  ) ; 

i 

900 

7! 

CALL  FLUTQHHZ  (  NITER,  BC,  SUB,  ESIZE(BC),  PSIZE (BC) ,  [AJK] , 

!  <r 

901 

7! 

[SKJ]  ,  [UGTKA]  ,  [PHIA]  ,  USET  (BC)  , 

! 

902 

7! 

[TMN (BC) ] ,  [GSUBO (BC) ] ,  NGDR,  AECOMPZ,  GEOMZA, 

! 

903 

7! 

[PHIKH]  ,  [QHKLFL  (BC,  SUB)  ]  ,  OAGRDDSP  )  ; 

!  «■ 

904 

7! 

CALL  FLUTDMA  (  NITER,  BC,  SUB,  ESIZE(BC),  PSIZE (BC), 

i 

905 

71 

BGPDT(BC) ,  USET (BC) ,  [MAAJ,  [KAA] ,  [TMN (BC) ] , 

j 

906 

7! 

[GSUBO { BC) ] ,  NGDR,  LAMBDA,  [PHIA] , 

i 

907 

7! 

[MHHFL (BC, SUB) ] ,  [BHHFL (BC, SUB) ) ,  [KHHFL(BC,SUB) ]  ) 

;  i 

908 

7! 

CALL  FLUTTRAZ  (  NITER,  BC,  SUB,  [QHHLFL  (BC,SUB)  ]  ,  LAMBDA, 

!  * 

909 

7! 

HSIZE (BC) ,  ESIZE (BC) ,  [MHHFL (BC, SUB) ] , 

t 

910 

7! 

[BHHFL (BC, SUB) ] ,  [KHHFL (BC , SUB) ] , 

! 

911 

7! 

CLAMBDA,  CONST , AEROZ  )  ; 

!  «- 

912 

71 

ENDDO; 

1 

913 

6! 

ENDIF; 

i 

914 

51$ 

$  ! 

915 

5! 

IF  BDRSP  <>  0  THEN 

j 

916 

6! 

IF  BMTR  <>  0  OR  BDTR  <>  0  THEN 

i 

917 

71 

PRINT ("LOG=(*  >»DISCIPLINE:  TRANSIENT  RESPONSE* )  ") 

:  - 

918 

71 

ENDIF; 

i 

919 

6! 

IF  BMFR  <>  0  OR  BDFR  <>  0  THEN 

i 

920 

71 

PRINT  ("LOG®  ( *  »>DISCIPLINE :  FREQUENCY  RESPONSE'}") 

;  i 

921 

7! 

ENDIF; 

» 

922 

€1$$$$$$$$$$$$$$$$$$$$$  MODIFIED  FOR  2 AERO  $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$!  + 

923 

6 !  $ 

CALL  QHKLGEN  (BC,  ESIZE  (BC)  ,  [QKKL]  ,  [QKJL]  ,  [UGTKA],  [PHIA], 

$  i 

924 

6 !  $ 

[PHIKH] ,  [QHHL] ,  [QHJL] ) ; 

$! 

925 

6!$$$$$$$$$$$$$$$$$$$$$  MODIFIED  FOR  ZAERO  $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$! 

926 

61 

CALL  QHHLGENZ  (BC,  ESIZE (BC) , [AJK] , [SKJ] , [QGK] , [UGTKA] ,  [PHIA] , 

! 

927 

6! 

[PHIKH] ,  [QHHL] ,  [QHJL] ,  AEROZ) ; 

!  f 

928 

6! 

CALL  DMA  (  NITER,  BC,  ESIZE (BC),  PSIZE (BC),  BGPDT(BC),  USET(BC) 

» 

929 

61 

[MAA],  [KAA],  [TMN (BC) J ,  [GSUBO(BC)],  NGDR, 

i 

930 

6! 

LAMBDA,  [PHIA],  [MDD] ,  [BDD] ,  [KDDT] ,  [KDDF] , 

» 

931 

6! 

[MHH] ,  [BHH] ,  [KHHT] ,  [KHHF]  ); 

i 

932 

6! 

CALL  DYNLOAD  (  NITER,  BC,  GSIZE,  ESIZE(BC),  PSIZE(BC),  SMPLOD, 

i 

933 

6! 

BGPDT(BC),  USET ( BC) ,  [TMN (BC) ] ,  [GSUBO(BC)], 

i 

934 

61 

NGDR,  [PHIA],  [QHJL],  [PDT] ,  [PDF], 

j 

935 

61 

[PTGLOAD] ,  [PTHLOAD] ,  [PFGLOAD] ,  [PFHLOAD]  ); 

1 

936 

61 

CALL  DYNRSP  (BC,  ESIZE(BC),  [MDD],  [BDD],  [KDDT],  [KDDF], 

i 

937 

61 

[MHH],  [BHH],  [KHHT],  [KHHF],  [PDT],  [PDF], 

i 

938 

61 

[QHHL],  [UTRANA],  [UFREQA] ,  [UTRANI] ,  [UFREQI] , 

» 

939 

61 

[UTRANE] ,  [UFREQE]  ) ; 

j 

940 

6! 

IF  BMTR  <>  0  [UTRANA]  :«  [PHIA]  *  [UTRANI); 

i 

941 

61 

IF  BMFR  <>  0  [UFREQA]  :•  [PHIA]  *  [UFREQI]; 

» 

942 

6! 

ENDIF; 

t 

943 

51 

ENDIF; 

i 

944 

41 

IF  BBLAST  <>  0  THEN 

i 

945 

5! 

PRINT ( "LOG- {'  »>DISCIPLINE:  BLAST*)**); 

j 

946 

5! 

CALL  BLASTFIT  (  BC,  [QJJL] ,  [MATTR] ,  [MATSS] ,  BQDP,  [BFRC] , 

i 

947 

51 

[DWNWSH],  HSIZE (BC),  [ID2],  [MPART] ,  [UGTKA], 

i 

948 

5! 

[BLGTJA] ,  [BLSTJA]  ); 

i 

949 

5! 

CALL  COL PART  (  [PHIA],  ,  [PHIE],  [MPART]  ); 

i 

950 

5! 

CALL  ROWMERGE  (  [PHIR],  [ID2],  [D(BC)J,  [PARL (BC) ]  ); 

» 

951 

5! 

CALL  COLMERGE  (  [PHIB] ,  [PHIR],  [PHIE],  [MPART]  ); 

j 

952 

51 

[GENM]  :=  TRANS (  [PHIB]  )  *  [  [MAA]  *  [PHIB]  ]; 

i 

953 

5! 

[GENK]  :  =  TRANS {  [PHIB]  }  *  [  [KAA]  *  [PHIB]  ]; 

i 

954 

5! 

[DTSLP]  :«  TRANS  (  (BLSTJA]  )  *  [PHIB]; 

i 

955 

51 

[FTF]  :»  TRANS  {  [PHIB]  )  *  [BLGTJA]; 

1 

62 


956 

5! 

957 

5! 

958 

51 

959 

5! 

960 

5! 

961 

5! 

962 

5! 

963 

5! 

964 

51 

965 

51 

966 

5! 

967 

5! 

968 

5! 

969 

51 

970 

51 

971 

5! 

972 

5! 

973  .' 

41$ 

974 

41$ 

975 

41$ 

976 

41 

977 

4! 

978 

4! 

979 

51$ 

980 

51$ 

981 

51$ 

982 

51$ 

983 

51 

984 

51 

985 

61 

986 

6! 

987 

6! 

988 

61 

989 

71 

990 

7! 

991 

7! 

992 

7! 

993 

61 

994 

5! 

995 

61 

996 

71 

997 

7! 

998 

71 

999 

71$ 

1000 

71$ 

1001 

71$ 

1002 

71$ 

1003 

71 

1004 

7  1 

1005 

8! 

1006 

8! 

1007 

8! 

1008 

8! 

1009 

8! 

1010 

71 

1011 

81 

1012 

8! 

1013 

8! 

1014 

8! 

1015 

8! 

1016 

81 

1017 

8! 

1018 

71 

1019 

6! 

1020 

5! 

1021 

61 

1022 

61 

1023 

61 

1024 

6! 

1025 

51 

1026 

61 

1027 

6! 

1028 

61 

1029 

6! 

1030 

5! 

1031 

61 

1032 

6! 

1033 

6! 

1034 

6! 

1035 

5! 

1036 

51 

[GENF]  (BQDP)  [FTF]  *  [BFRC] ; 

[GENFA]  (BQDP)  [FTF]  *  [MATSS] ;  ! 

[GENQ]  [GENFA]  *  [DTSLP] ?  ! 

[GENQL]  (BQDP)  [FTF]  *  [MATTR] ;  1 

CALL  PARTN  {  [GENQ] , [QRK]  ,  ,  [QRE] ,  [QEE] ,  [MPART]  );  ! 

CALL  PARTN  (  (GENIC) ,  ,  ,  ,  [KEE] ,  [MPART]  );  l 

[KEQE]  [QEE]  +  [KEE];  ! 

CALL  DECOMP  (  [KEQE],  [LKQ] ,  [UKQ]  )?  1 

CALL  ROW PART  (  [GENF] ,  [GFR] ,  [GFE],  [MPART]  );  1 

CALL  GFBS  (  [LKQ],  [UKQ],  [GFE],  [BTEM]  );  1 

[DELM]  -[QRE]  *  [BTEM]  +  [GFR];  * 

CALL  BLASTRIM  (  BC,  [DELM],  [MRR ( BC) ] ,  [URDB] ,  [DELB]  );  ! 

[ELAS]  [BTEM]  *  [DELB];  1 

[SLPMOD]  TRANS  {  [BLSTJA]  )  *  [PHIE];  ! 

CALL  BLAST DRV  (  BC,  [GENM] ,  [GENK] ,  [GENFA],  [GENQL],  [DELB],  1 

[URDB],  [DWNWSH],  [SLPMOD],  [ELAS],  [UBLASTI ]  );  1 

ENDIF;  j 

BEGIN  THE  DATA  RECOVERY  OPERATIONS  $! 

§  1 


PRINT ( "LOG* ( '  DATA  RECOVERY » )  ") ;  1 

IF  NUMOPTBC  >  1  CALL  NULLMAT  ([UF],  [AF] ,  [PHIF],  [UTRANF] ,  [UFREQF] ) ;  ! 
IF  NGDR  <>  0  THEN  j 

DATA  RECOVERY  WITH  GDR  $! 

APPEND  THE  GDR-GENERATED  DOFS  TO  THE  F-SET  $  ! 

$! 

PRINT { "LOG- ( *  DYNAMIC  REDUCTION  RECOVERY  1 ) " )  ;  ! 

IF  BLOAD  <>  0  THEN  ! 

[UFGDR]  [GSUBO(BC)]  *  [UA] ;  1 

CALL  ROWPART  (  [UA] ,  [UJK],  ,  [PAJK]  )i  ! 

CALL  ROWMERGE  (  [UF] ,  [UJK],  [UFGDR],  [PFJK]  );  J 

IF  NRSET  <>  0  THEN  1 

[AFGDR]  [GSUBO(BC)]  *  [AA] ;  ! 

CALL  ROWPART  {  [AA] ,  [UJK],  ,  [PAJK]  );  '■ 
CALL  ROWMERGE  {  [AF] ,  [UJK],  [AFGDR],  [PFJK]  );  ! 

ENDIF;  ! 

ENDIF;  ! 

IF  BSAERO  <>  0  THEN  1 

FOR  S  -  1  TO  SUB  DO  ' 

[UFGDR]  [GSUBO(BC)]  *  [UAA{S)J;  • 

CALL  ROWPART  (  [UAA(S)],  [UJK],  ,  [PAJK]  );  i 

CALL  ROWMERGE  (  [UAFTMP] ,  [UJK],  [UFGDR],  [PFJK]  );  l 

$1 

MERGE  THE  CURRENT  SUBCASE  DEPENDENT  RESULTS  INTO  A  SINGLE  $1 
MATRIX  OF  RESPONSE  QUANTITIES  FOR  FURTHER  RECOVERY  $1 

$1 

CALL  SAEROMRG  (  BC,  S,  [UAF] ,  [UAFTMP]  ) ;  ! 

IF  NRSET  <>  0  THEN  ! 

[AFGDR]  [GSUBO (BC) ]  *  [AAA (S) ] ;  i 

CALL  ROWPART  (  [AAA (S) ] ,  [UJK],  ,  [PAJK]  );  ! 

CALL  ROWMERGE  (  [AAFTMP] ,  [UJK],  [AFGDR],  [PFJK]  );  ! 

CALL  SAEROMRG  (  BC,  S,  [AAF] ,  [AAFTMP]  );  I 

ENDIF;  ! 

IF  AEFLG(S)  THEN  ! 

[UFGDR]  [GSUBO (BC)]  *  [UAAC(S)];  ! 

CALL  ROWPART  (  [UAAC(S)],  [UJK],  ,  [PAJK]  );  ! 

CALL  ROWMERGE  (  [UAFC(S)],  [UJK],  [UFGDR],  [PFJK]  );  l 

[AFGDR]  [GSUBO (BC)]  *  [AAAC(S)]; 

CALL  ROWPART  {  [AAAC{$)],  [UJK],  ,  [PAJK]  ); 

CALL  ROWMERGE  (  [AAFC(S)],  [UJK],  [AFGDR],  [PFJK]  ); 

ENDIF; 

ENDDO; 

ENDIF; 

IF  B MODES  <>  0  THEN 

[UFGDR]  (GSUBO(BC)]  *  [PHIA] ; 

CALL  ROWPART  (  [PHIA],  [UJK],  ,  [PAJK]  ); 

CALL  ROWMERGE  (  [PHIF],  [UJK],  [UFGDR],  [PFJK]  ); 

ENDIF; 

IF  BDTR  <>  0  OR  BMTR  <>  0  THEN 

[UFGDR]  [GSUBO(BC)]  *  [UTRANA); 

CALL  ROWPART  (  [UTRANA),  [UJK],  ,  [PAJK]  );  ! 

CALL  ROWMERGE  (  [UTRANF],  [UJK],  [UFGDR],  [PFJK]  ); 

ENDIF; 

IF  BDFR  <>  0  OR  BMFR  <>  0  THEN 

[UFGDR]  [GSUBO(BC)]  *  [UFREQA] ; 

CALL  ROWPART  (  [UFREQA],  [UJK],  ,  [PAJK]  ); 

CALL  ROWMERGE  (  [UFREQF],  [UJK],  [UFGDR],  [PFJK]  ); 

ENDIF; 

ELSE 

IF  NOMIT  <>  0  THEN 


63 


1037 

6 !  $ 

1038 

61$ 

1039 

61$ 

1040 

6! 

1041 

61 

1042 

7! 

1043 

71 

1044 

7! 

1045 

81 

1046 

7! 

1047 

6! 

1048 

71 

1049 

81 

1050 

81 

1051 

8! 

1052 

81 

1053 

81$ 

1054  - 

81$ 

1055 

81$ 

1056 

81$ 

1057 

8! 

1058 

81 

1059 

91 

1060 

9! 

1061 

91 

1062 

9! 

1063 

81 

1064 

91 

1065 

9! 

1066 

91 

1067 

91 

1068 

91 

1069 

9! 

1070 

91 

1071 

8  1 

1072 

71 

1073 

6! 

1074 

71 

1075 

71 

1076 

71 

1077 

6! 

1078 

71 

1079 

71 

1080 

71 

1081 

6! 

1082 

7! 

1083 

71 

1084 

7  1 

1085 

6! 

1086 

61$ 

1087 

61$ 

1088 

61$ 

1089 

61 

1090 

71 

1091 

71 

1092 

71 

1093 

61 

1094 

71 

1095 

81$ 

1096 

81$ 

1097 

81$ 

1098 

81$ 

1099 

81 

1100 

81 

1101 

81 

1102 

91 

1103 

9! 

1104 

9! 

1105 

8! 

1106 

7! 

1107 

6! 

1108 

61 

1109 

6! 

1110 

61 

1111 

51 

1112 

41$ 

1113 

41 

1114 

41 

1115 

51$ 

1116 

51$ 

1117 

51$ 

$ 

DATA  RECOVERY  WITH  STATIC  CONDENSATION  $ 

$ 

PRINT { "LOG« ( *  STATIC  CONDENSATION  RECOVERY  * ) " J  S 

IF  BLOAD  <>  0  THEN 

CALL  RECOVA  (  [UA] ,  [PO] ,  [GSUBO(BC)],  NRSET,  [AA]  , 

(IFM(BC) ] ,  /  (KOOINV(BC) },, [PFOA(BC) ],  [UF]  )? 

IF  NRSET  <>  0  CALL  RECOVA  {  [AA] ,  ,  [GSUBO (BC) ,t 

[PFOA(BC) 3 /  [AF]  ) ; 

ENDIF; 

IF  BSAERO  <>  0  THEN 
FOR  S  -  1  TO  SUB  DO 

CALL  RECOVA  {  [UAA(S)3,  [PAO(S)]f  [GASUBO (BC, S) ] , 

NRSET,  [AAA{S)3,  [IFMA(BC, S) ) ,  BSAERO, 

[KOOL (BC, S) ] ,  [KOOU (BC, S) ] , 

[PFOA (BC) 3 ,  [UAFTMP]  ); 

$ 

MERGE  THE  CURRENT  SUBCASE  DEPENDENT  RESULTS  INTO  A  SINGLE  $ 
MATRIX  OF  RESPONSE  QUANTITIES  FOR  FURTHER  RECOVERY  S 


CALL  SAEROMRG  (  BC,  S,  [UAF] ,  (UAFTMP]  ); 

IF  NRSET  <>  0  THEN 

CALL  RECOVA  {  [AAA (S) ],, (GASUBO ( BC, S) ],,,,,, , 
(PFOA(BC) ] ,  [AAFTMP]) S 
CALL  SAEROMRG  (  BC,  S,  [AAF] ,  [AAFTMP]  ); 

ENDIF; 

IF  AEFLG(S)  THEN 

CALL  RECOVA  (  (UAAC(S)],  [PAOC(S)],  [GASUBO { BC, S) ] , 

NRSET,  [AAAC (S) ] ,  [IFMA(BC,S) ] ,  BSAERO, 
[ KOOL ( BC , S } ] ,  [KOOU(BC,S) ] , 

[PFOA(BC) 3 1  [UAFC (S) ]  ); 

CALL  RECOVA  (  [AAAC (S) ],, [GASUBO (BC, S) ],,,,,, , 

[ P  FO A ( BC ) ] ,  [AAFC(S) ]) ; 

ENDIF; 

ENDDO; 

ENDIF; 

IF  BMODES  <>  0  THEN 

[PHIO]  [GSUBO (BC) ]  *  [PHIA] ; 

CALL  ROWMERGE  {  [PHIF],  [PHIO],  [PHIA],  [PFOA(BC)]  ); 

ENDIF; 

IF  BDTR  <>  0  OR  BMTR  <>  0  THEN 

CALL  RECOVA  (  [UTRANA] ,  ,  [GSUBO (BC) ],,,,,, , 

(PFOA(BC) ] ,  [UTRANF]  ); 

ENDIF; 

IF  BDFR  <>  0  OR  BMFR  <>  0  THEN 

CALL  RECOVA  (  [UFREQA] ,  ,  [GSUBO (BC) ],,,,,,, 

(PFOA(BC)],  [UFREQF]  ); 

ENDIF; 

ELSE 

DATA  RECOVERY  WITHOUT  F-SET  REDUCTION 


$ 

$ 

$ 


IF  BLOAD  <>  0  THEN  • 

[UF]  [UA); 

IF  NRSET  <>  0  [AF]  :  *  [AA]  ; 

ENDIF; 

IF  BSAERO  <>  0  THEN 
FOR  S  =  1  TO  SUB  DO 

$ 

MERGE  THE  CURRENT  SUBCASE  DEPENDENT  RESULTS  INTO  A  SINGLE  $ 
MATRIX  OF  RESPONSE  QUANTITIES  FOR  FURTHER  RECOVERY  $ 

$ 


CALL  SAEROMRG  {  BC,  S,  [UAF],  [UAA(S) ]  ); 

IF  NRSET  <>  0  CALL  SAEROMRG  (  BC,  S,  [AAF],  [AAA(S]  ]  ); 
IF  AEFLG(S)  THEN 

[UAFC (S) ]  [UAAC(S)]; 

[AAFC(S)]  :»  [AAAC (S) ] ; 

ENDIF; 

ENDDO; 

ENDIF; 

IF  BMODES  <>  0  [PHIF]  :=  (PHIA); 

IF  BDTR  <>  0  OR  BMTR  <>  0  [UTRANF3  [UTRANA]; 

IF  BDFR  <>  0  OR  BMFR  <>  0  [UFREQF]  :=  [UFREQA]; 

ENDIF; 

ENDIF; 


IF  NUMOPTBC  >  1  CALL  NULLMAT  (  [UN],  [AN],  [PHIN]  );  j 

IF  NS PC  <>  0  THEN  1 

$  ! 


DATA  RECOVERY  WITH  SPC-REDUCTION 


$1 

§! 
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SPC  RECOVERY')"); 


1118 

5! 

PRINT { "LOG- ( •  SPC  RECOVERY1)  ") ; 

» 

1119 

5! 

IF  BLOAD  <>  0  THEN 

j 

1120 

6! 

CALL  YSMERGE  (  [UN] ,  [YS(BC)J,  [UF] ,  [PNSF(BC)]  ); 

1 

1121 

6! 

CALL  OFPSPCF  (  NITER,  BC,  1,  1,  GSIZE,  ESIZE(BC),  NGDR, 

j 

1122 

6! 

[KFS],  [KSS],  [UF],  [YS (BC) ] ,  [PS], 

j 

1123 

6! 

[PNSF { BC) ] ,  [PGMN(BC)],  [PFJK],  ,  ,  , 

i 

1124 

6! 

BGPDT(BC) ,  OGRIDLOD  }; 

i 

1125 

6! 

IF  NRSET  <>  0  CALL  YSMERGE  {  [AN],  ,  [AF] ,  [PNSF(BC)]  ); 

i 

1126 

6! 

ENDIF; 

j 

1127 

5! 

IF  BSAERO  <>  0  THEN 

j 

1128 

6! 

CALL  YSMERGE  {  [UAN] ,  [YS(BC)],  [UAF] ,  (PNSF(BC) ]  ); 

i 

1129 

6! 

IF  NRSET  <>  0  CALL  YSMERGE  (  [AAN] ,  ,  [AAF] ,  [PNSF(BC)]  ); 

j 

1130 

6! 

FOR  S  -  1  TO  SUB  DO 

i 

1131 

7! 

IF  AEFLG(S)  THEN 

1 

1132 

81 

CALL  YSMERGE  {[UANC(S)],  [YS(BC)],  [UAFC(S)],  (PNSF(BC)]) 

1133 

8! 

CALL  YSMERGE  ([AANC{S)3,  ,  [AAFC(S)],  [PNSF(BC)]); 

i 

1134 

81 

ENDIF; 

j 

1135- 

71 

ENDDO; 

i 

1136 

6! 

ENDIF; 

i 

1137 

5! 

IF  BMODES  <>  0  THEN 

i 

1138 

6! 

CALL  YSMERGE  (  [PHIN] ,  [YS(BC)],  [PHIF], 

i 

1139 

6! 

[PNSF(BC) ]  ); 

1 

1140 

6! 

IF  DMODES  <>  0  CALL  OFPSPCF  (  NITER,  BC,  2,  1,  GSIZE, 

1 

1141 

7! 

ESIZE(BC),  NGDR, 

i 

1142 

7! 

[KFS],  ,  [PHIF],  ,  , 

i 

1143 

7! 

[PNSF (BC) ] ,  [PGMN (BC) J ,  [PFJK], 

i 

1144 

71 

,  ,  ,  BGPDT(BC),  OGRIDLOD  ); 

i 

1145 

6! 

ENDIF; 

1 

1146 

5! 

IF  BDTR  <>  0  OR  BMTR  <>  0 

i 

1147 

6! 

CALL  YSMERGE  (  [UTRANN] ,  [YS(BC)],  [UTRANF] , 

j 

1148 

6! 

[PNSF(BC) ] ,  BDTR  ) ; 

i 

1149 

5! 

IF  BDFR  <>  0  OR  BMFR  <>  0 

» 

1150 

6! 

CALL  YSMERGE  (  [UFREQN] ,  [YS(BC)J,  [UFREQF]  , 

1 

1151 

6! 

[PNSF(BC) ] ,  BDFR  ) ; 

j 

1152 

5! 

IF  BBLAST  <>  0  THEN 

i 

1153 

61 

[UBLASTF]  [PHIF] * [UBLASTI] ; 

i 

1154 

6! 

CALL  OFPSPCF  (  NITER,  BC,  8,  1,  GSIZE,  ESIZE(BC),  NGDR, 

j 

1155 

6! 

[KFS],  ,  [UBLASTF],  ,  ,  [PNSF(BC)],  [PGMN (BC) ]  , 

i 

1156 

61 

[PFJK] ,  ,  ,  ,  BGPDT(BC),  OGRIDLOD  ); 

\ 

1157 

61 

ENDIF; 

j 

1158 

51 

ELSE 

i 

1159 

51$ 

$1 

1160 

51$ 

DATA  RECOVERY  WITHOUT  SPC-RE DUCT ION 

$  1 

1161 

51$ 

$1 

1162 

51 

IF  BLOAD  <>  0  THEN 

j 

1163 

61 

[UN]  :«  [UF] ; 

i 

1164 

61 

IF  NRSET  <>  0  [AN]  :»  [AF] ; 

i 

1165 

61 

ENDIF; 

j 

1166 

5! 

IF  BSAERO  <>  0  THEN 

r 

1167 

61 

[UAN]  [UAF]; 

1 

1168 

6! 

IF  NRSET  <>  0  [AAN]  :»  [AAF]; 

1169 

6! 

FOR  S  -  1  TO  SUB  DO 

1170 

7! 

IF  AEFLG(S)  THEN 

1171 

81 

[UANC (S) ]  [UAFC (S) ] ; 

1172 

81 

[AANC (S) ]  :«  [AAFC(S) J ; 

1173 

81 

ENDIF; 

1174 

71 

ENDDO; 

1175 

61 

ENDIF; 

1176 

51 

IF  BMODES  <>  0  [PHIN]  [PHIF]; 

1177 

51 

IF  BDTR  <>  0  OR  BMTR  <>  0  [UTRANN)  [UTRANA] ; 

1178 

5! 

IF  BDFR  <>  0  OR  BMFR  <>  0  [UFREQN]  [UFREQA] ; 

1179 

51 

ENDIF; 

1180 

41$ 

$! 

1181 

41 

IF 

NUMOPTBC  >  1  CALL  NULLMAT  (  [UG(BC)),  [AG(BC) ] ,  [UAG(BC)], 

1182 

51 

[AAG(BC)),  [PHIG(BC))  ); 

1 

1183 

41$ 

$! 

1184 

4! 

IF 

NMPC  <>  0  THEN 

1185 

51$ 

$1 

1186 

51$ 

DATA  RECOVERY  WITH  MPC-REDUCTION 

$1 

1187 

51$ 

$1 

1188 

51 

PRINT ( "LOG- ( '  MPC  RECOVERY’)  ") ? 

1189 

5! 

IF  BLOAD  <>  0  THEN 

1190 

6! 

[UM]  :■*  [ TMN  ( BC )  ]  *  [UN]; 

1191 

61 

CALL  ROWMERGE  (  [UG(BC)J,  [UM],  [UN],  [ PGMN (BC) ]  ); 

1192 

61 

IF  NRSET  <>  0  THEN 

1193 

71 

[UM]  [TMN (BC) ]  *  [AN]; 

1194 

71 

CALL  ROWMERGE  {  [AG(BC) ] ,  [UM] ,  [AN],  [PGMN { BC) ]  ); 

1195 

7! 

ENDIF; 

1196 

6! 

ENDIF; 

1 

1197 

51 

IF  BSAERO  <>  0  THEN 

i 

1198 

61 

[UM]  [TMN (BC} ]  *  [UAN]; 

i 
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1199 

6! 

CALL  ROWMERGE  (  [UAG(BC) 3 t  [UM]  ,  [UAN] ,  [PGMN(BC)]  ); 

1 

1200 

6! 

IF  NRSET  <>  0  THEN 

j 

1201 

7! 

[UM]  [TMN (BC) ]  *  [AAN]; 

1202 

71 

CALL  ROWMERGE  (  [AAG (BC) ] ,  [UM],  [AAN],  (PGMN(BC)]  ); 

f 

1203 

7! 

ENDIF; 

t 

1204 

6! 

FOR  S  *  1  TO  SUB  DO 

1205 

7! 

IF  AEFLG { S )  THEN 

1206 

8 ! 

[UM]  [TMN (BC) ]  *  [UANC(S)]; 

1207 

8! 

CALL  ROWMERGE  ( [UAGC ( BC, S) ] ,  [UM] ,  [UANC{S)3,  [PGMN (BC) ] ) ; 

! 

1208 

8  ! 

[UM]  [TMN {BC)  ]  *  [AANC(S)]? 

* 

1209 

8! 

CALL  ROWMERGE  ( [AAGC { BC, S) ] ,  [UM] ,  [AANC{$)],  [PGMN (BC) ] ) ; 

1210 

8! 

ENDIF; 

j 

1211 

7! 

END DO; 

i 

1212 

6! 

ENDIF; 

i 

1213 

5! 

IF  BMODES  <>  0  THEN 

1214 

6! 

[UM]  [TMN (BC) ]  *  [PHIN] ; 

• 

1215 

6! 

CALL  ROWMERGE  (  [PHIG(BC)],  [UM] ,  [PHIN],  [PGMN{BC)1  ); 

1216 

6! 

ENDIF; 

* 

1217 

5! 

IF  BDTR  <>  0  OR  BMTR  <>  0  THEN 

j 

1218 

61 

[UM]  :»  [TMN {BC) ]  *  [UTRANN] ; 

1219 

61 

CALL  ROWMERGE  {  [UTRANG] ,  [UM],  [UTRANN],  [PGMN{BC)1  ); 

1220 

6! 

ENDIF; 

j 

1221 

5! 

IF  BDFR  <>  0  OR  BMFR  <>  0  THEN 

* 

1222 

61 

[UM]  :=  [TMN (BC) ]  *  [UFREQN] ; 

1223 

6! 

CALL  ROWMERGE  {  [UFREQG] ,  [UM],  [UFREQN],  [PGMN (BC) ]  ); 

i 

1224 

61 

ENDIF; 

i 

1225 

51 

ELSE 

S  i 

1226 

51$ 

e  * 

1227 

51$ 

DATA  RECOVERY  WITHOUT  MPC-REDUCTION 

$  I 

C  1 

1228 

51$ 

t 

1229 

51 

IF  BLOAD  <>  0  THEN 

1230 

6! 

[UG(BC) ]  [UN]; 

1231 

6! 

IF  NRSET  <>  0  [AG(BC) ]  :«  [AN] ; 

1 

1232 

6! 

ENDIF; 

I 

1233 

5! 

IF  BSAERO  <>  0  THEN 

1234 

6! 

[UAG { BC) ]  [UAN] ; 

1235 

6! 

IF  NRSET  <>  0  [AAG (BC) ]  :«  [AAN]; 

1236 

61 

FOR  S  =  1  TO  SUB  DO 

1237 

71 

IF  AEFLG (S)  THEN 

1238 

81 

[UAGC (BC, S) ]  :=  [UANC(S)]; 

1239 

8! 

[AAGC { BC, S) ]  :=  [AANC(S)j; 

1240 

8! 

ENDIF; 

| 

1241 

7! 

ENDDO; 

1 

1242 

61 

ENDIF; 

1243 

51 

IF  BMODES  <>  0  [PHIG(BC) ]  :=  [PHIN]; 

' 

1244 

51 

IF  BDTR  <>  0  OR  BMTR  <>  0  [UTRANG]  :=  [UTRANN]; 

1 

1245 

5! 

IF  BDFR  <>  0  OR  BMFR  <>  0  [UFREQG]  :«  [UFREQN]; 

1 

1 

1246 

51 

ENDIF; 

1247 

41$ 

1248 

41$ 

RECOVER  PHYSICAL  BLAST  DISCIPLINE  DISPLACEMENTS 

$  1 

C  I 

1249 

41$ 

9  I 

1250 

41 

IF  B BLAST  <>  0  [UBLASTG]  :=  [PHIG(BC)]  *  [UBLASTI] ; 

e  l 

1251 

41$ 

9  • 

1252 

41$ 

PERFORM  CONSTRAINT  EVALUATION  FOR  STATIC  DISCIPLINES 

$  1 

1253 

41$ 

$  1 

1254 

4! 

PRINT ( "LOG* ( 1  CONSTRAINT  EVALUATION *)  ")  ; 

1 

1255 

41 

IF  BLOAD  <>  0  THEN 

1 

1256 

51 

CALL  DCEVAL  {  NITER,  BC,  [UG(BC)],  CONST  ); 

* 

1257 

51 

CALL  SCEVAL  (  NITER,  BC,  [UG(BC)],  [SMAT] ,  TREF,  [GLBSIG],  CONST  ) 

•  1 

1258 

51 

ENDIF; 

1259 

41 

IF  BSAERO  <>  0  THEN 

1260 

5! 

CALL  DCEVAL  (  NITER,  BC,  [UAG(BC)],  CONST,  BSAERO  ); 

1 

1261 

51 

CALL  SCEVAL  {  NITER,  BC,  [UAG(BC)],  [SMAT],  TREF,  [GLBSIG],  CONST ( 

p  l 

1262 

51 

BSAERO  )  ; 

1263 

51 

ENDIF; 

1 

1264 

41$ 

$  1 

1265 

41$ 

HANDLE  OUTPUT  REQUESTS 

$  1 

1266 

41$ 

$  1 

1267 

41 

PRINT ("LOG* ( *  OUTPUT  PROCESSING1 ) ") ; 

1268 

4! 

IF  BSAERO  <>  0  THEN 

1269 

51$ 

$  1 

1270 

51$ 

RECOVER  STATIC  AEROELASTIC  LOADS  DATA 

$  1 

1271 

51$ 

$  1 

1272 

51 

LOOP  :«  TRUE; 

1273 

5! 

SUB  :»  0; 

1274 

51 

WHILE  LOOP  DO 

* 

1275 

6! 

SUB  :=  SUB  +  1; 

1276 

61 

CALL  SAERODRV  (BC,  SUB,  LOOP,  MINDEX,  SYM,  MACH,  QDP  )  ; 

- 

1277 

61$ 

$  1 

1278 

61$ 

CALL  THE  TRIMMED  LOADS  COMPUTATION  WITH  PROPER  MATRICES 

$  I 

1279 

61$ 

$  1 

66 


1280 

1281 

1282 

1283 

1284 

1285 
1266 

1287 

1288 

1289 

1290 

1291 
12  92 

1293 

1294 

1295 

1296 
1297- 

1298 

1299 

1300 

1301 

1302 

1303 

1304 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

1314 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 

1338 

1339 

1340 

1341 

1342 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 


!  IF  SYM  -  1  THEN  l 

|  $*********************************  TAKEN  OUT  FOR  ZAERO  ★*****★*****************$! 
!$  CALL  OFPALOAD  (  NITER,  BC,  HIND  EX,  SUB,  6SIZE,  B6PDT  (BC)  ,  $! 

!$  [GTKG]  ,  [GSTKG],  QDP,  [AIRFRC  (MIND EX)  ]  ,  $! 

!  $  [DELTA  (SUB)  ]  ,  [AICMAT  (MINDEX)  ]  ,  $! 

!$  [UAG  (BC)  ]  ,  [MGG],  [AAG  (BC)  ]  ,  [KFS]  ,  $! 

!$  [KSS],  [UAF] ,  [YS (BC) ] ,  [PNSF(BC)],  $! 

f  $  [PGMN (BC) ] ,  [PFJK] ,  NGDR,  USET (BC)  ,  $! 

(  $  OGRXDLOD  )  ;  $  ! 

I  $*********************************** ************ ******★**★**★**********★***★***$ | 

!  CALL  OFPALOAD  (  NITER,  BC,  MINDEX,  SUB,  GSI2E,  BGPDT (BC),  ! 

f  [UGTKG],  [UGTKG],  QDP,  [AIRFRC  (MINDEX)  )  ,  ! 

!  [DELTA (SUB) J ,  [AICMAT (MINDEX) ] ,  ! 

!  [UAG (BC) ] ,  [MGG],  [AAG (BC) ) ,  [KFS],  ! 

!  [KSS],  [UAF],  [YS (BC) ] ,  [PNSF(BC)],  ! 

!  [PGMN(BC)],  [PFJK],  NGDR,  USET(BC),  ! 

!  OGRIDLOD  ) ;  ! 

!  ELSE  ! 

!  IF  SYM  -  -1  THEN  ! 

j $*★**★****************************  TAKEN  OUT  FOR  ZAERO  ***★********************$  1 
1$  CALL  OFPALOAD  (  NITER,  BC,  MINDEX,  SUB,  GSIZE,  BGPDT  (BC)  ,  $! 

!$  [GTKG],  [GSTKG],  QDP,  [AIRFRC (MINDEX) ] ,  $! 

!  $  [DELTA ( SUB) ] ,  [AAICMAT (MINDEX) ]  ,  $  1 

!  $  [UAG (BC) ] ,  [MGG],  [AAG (BC) ] ,  [KFS],  $! 

!$  [KSS],  [UAF],  [YS  (BC)  ]  ,  [PNSF(BC)],  $! 

!$  [PGMN (BC) ] ,  [PFJK],  NGDR,  USET(BC),  $! 

!  $  OGRIDLOD  )  ;  $ ! 

I  $***★******★******★******************************************************+*****$! 

!  CALL  OFPALOAD  (  NITER,  BC,  MINDEX,  SUB,  GSIZE,  BGPDT (BC) ,  ! 

!  [UGTKG] ,  [UGTKG] ,  QDP ,  [AIRFRC (MINDEX)  ] ,  ! 

[DELTA (SUB) ] ,  [AAICMAT (MINDEX) ] ,  ! 

[UAG(BC) ] ,  (MGG),  [AAG(BC)],  [KFS],  ! 

[KSS],  [UAF],  [YS (BC) ) ,  (PNSF(BC)],  l 

[PGMN (BC) ] ,  [PFJK],  NGDR,  USET(BC),  J 

OGRIDLOD  ) ;  i 

ENDIF;  I 

ENDIF;  ! 

$  $! 

$  CALL  TO  COMPUTE  THE  TRIMMED  LOADS /DISPLACEMENTS  ON  THE  $! 

$  AERODYNAMIC  MODEL  $! 

$  $! 

IF  SYM  -  1  THEN  ! 

f $*********************************  TAKEN  OUT  FOR  ZAERO  *******************★****$ J 
!  $  CALL  OFPAEROM  (  NITER,  BC,  MINDEX,  SUB,  GSIZE,  GEOMSA,  $ ! 

!  $  [GTKG] ,  [GSTKG] ,  QDP ,  [AIRFRC (MINDEX) ] ,  $ ! 

1$  [DELTA  (SUB)  ]  ,  [AICMAT  (MINDEX)  ]  ,  $! 

($  [UAG (BC)  ] ,  OAGRDLOD,  OAGRDDSP  );  $! 

I  $********************★+★**************★★*********+***+*************************£  j 

1  CALL  OFPAEROM  (  NITER,  BC,  MINDEX,  SUB,  GSIZE,  GEOMSA,  ! 

!  [UGTKG],  [UGTKG],  QDP,  [AIRFRC  (MINDEX) ] ,  \ 

!  [DELTA(SUB) ] ,  [AICMAT (MINDEX) ] ,  ! 

!  [UAG (BC) ] ,  OAGRDLOD,  OAGRDDSP  );  ! 

!  ELSE  1 

!  IF  SYM  ■  -1  THEN  ! 

f a***************** ****** ******  TAKEN  OUT  FOR  ZAERO  ******★************★****$  1 
!  $  CALL  OFPAEROM  (  NITER,  BC,  MINDEX,  SUB,  GSIZE,  GEOMSA,  $1 

!$  [GTKG],  [GSTKG],  QDP,  [AIRFRC  (MINDEX)  ]  ,  $! 

!  $  [DELTA  (SUB)  )  ,  [AAICMAT  (MINDEX)  ]  ,  $ ! 

!  $  [UAG  (BC)  ]  ,  OAGRDLOD,  OAGRDDSP  );  $! 

f  §★*★★*****★★**★**★****★★*******★*★★*****★****★★***+★★**★***+****★★**★***+******$; 

!  CALL  OFPAEROM  (  NITER,  BC,  MINDEX,  SUB,  GSIZE,  GEOMSA,  ! 

!  [UGTKG]  ,  [UGTKG]  ,  QDP ,  [AIRFRC  (MINDEX) )  ,  I 

[DELTA (SUB) ] ,  [AAICMAT (MINDEX)  ]  ,  ! 

(UAG(BC) ] ,  OAGRDLOD,  OAGRDDSP  );  ! 

ENDIF;  I 

ENDIF;  ! 

ENDDO;  J 

ENDIF;  J 

IF  BDRSP  <>  0  THEN  ! 

CALL  OFPDLOAD  (  NITER,  BC,  BGPDT ( BC) ,  PSIZE(BC),  ESIZE(BC),  ! 

[PHIG(BC)],  [PTGLOAD] ,  [PTHLOAD] ,  [PFGLOAD],  ! 

[PFHLOAD] ,  OGRIDLOD  );  ! 

IF  BDTR  <>  0  OR  BMTR  <>  0  ! 


CALL  OFPSPCF  {  NITER,  BC,  5,  1,  GSIZE,  ESIZE(BC), 
NGDR,  [KFS],  ,  [UTRANF] ,  ,  , 
(PNSF(BC) ] ,  (PGMN(BC) ] ,  [PFJK], 
[PHIG(BC) ] ,  [PTGLOAD],  [PTHLOAD], 
BGPDT [BC),  OGRIDLOD  ); 

<>  0  OR  BMFR  <>  0 

CALL  OFPSPCF  (  NITER,  BC,  6,  2,  GSIZE,  ESIZE(BC), 
NGDR,  [KFS],  ,  [UFREQF],  ,  , 
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1361 

61 

[PNSF(BC)],  [PGMN(BC)],  [PFJK] , 

j 

1362 

6! 

[PHIG ( BC) ] ,  [PFGLOAD] ,  [ PFHLOAD] # 

1 

1363 

6! 

BGPDT(BC),  OGRIDLOD  ); 

1 

1364 

5! 

ENDIF; 

1 

1365 

4! 

CALL  OFPLOAD  (  NUMOPTBC,  BC,  NITER,  GSIZE,  BGPDT(BC) ,  PSIZE(BC), 

1 

1366 

4! 

EPG]  ) ; 

1 

1367 

4! 

CALL  OFPDISP  (  NUMOPTBC,  BC,  NITER,  GSIZE,  BGPDT(BC),  ESIZE(BC), 

> 

1368 

4! 

PSIZE(BC),  OGRIDDSP,  [UG(BC) ] ,  [AG (BC) ] ,  [UAG(BC)J, 

1 

1369 

4! 

[AAG(BC)],  [UBLASTG] ,  ,  [UTRANGJ ,  [UTRANE] ,  [UFREQG] , 

1 

1370 

4! 

[UFREQEJ,  LAMBDA,  [PHIG(BC)]  )? 

t 

1371 

4! 

CALL  EDR  (  NUMOPTBC,  BC,  NITER,  NDV,  GSIZE,  EOSUMMRY,  EODISC, 

t 

1372 

41 

GLBDES,  LOCLVAR,  [PTRANS], 

1 

1373 

4! 

[UG(BC) ] ,  [UAG (BC) ] ,  ,  [UTRANG] ,  [UFREQG] ,  [PHIG(BC)]  ); 

1 

1374 

4! 

CALL  PBKLEVAL  {  BC,  NITER,  NDV,  GLBDES,  LOCLVAR,  [PTRANS],  PDLIST, 

1 

1375 

4! 

OPNLBUCK  }; 

j 

1376 

4! 

CALL  EBKLEVAL  (  BC,  NITER,  NDV,  GLBDES,  LOCLVAR,  [PTRANS],  OEULBUCK  ); 

1 

1377 

4  1 

CALL  OFPEDR  (  BC,  HSIZE(BC),  NITER  ); 

j 

1378.' 

4! 

ENDDO; 

j 

1379 

3 !  $ 

$1 

1380 

31$ 

SELECT  ACTIVE  CONSTRAINTS 

$  1 

1381 

31$ 

$1 

1382 

3! 

PRINT ( "LOG* ( *  SENSITIVITY  ANALYSIS’)"); 

l 

1383 

3! 

CALL  ACTCON  (  NITER,  MAXITER,  NRFAC ,  NDV,  GLBDES,  LOCLVAR,  [PTRANS], 

1 

1384 

31 

EPS,  APPCNVRG,  GLBCNVRG, 

1 

1385 

31 

CTL,  CTLMIN,  CONST,  [AMAT] ,  DESHIST,  PFLAG,  OLOCALDV  ); 

1386 

31 

CALL  DES PUNCH  (  NITER,  PFLAG,  OLOCALDV  ) ; 

1 

1387 

31$ 

$  ! 

1388 

31 

IF  GLBCNVRG  OR  NITER  >  MAXITER  THEN 

1 

1389 

41$ 

$1 

1390 

41$ 

LAST  ITERATION  OUTPUT 

$1 

1391 

41$ 

$1 

1392 

41 

FOR  BC  -  1  TO  NUMOPTBC  DO 

j 

1393 

5! 

CALL  OFPMROOT  (  NITER,  BC,  NUMOPTBC,  LAMBDA,  1  ) ; 

1 

1394 

51 

CALL  OFPDISP  (  NUMOPTBC,  BC,  NITER,  GSIZE,  BGPDT(BC),  ESIZE(BC), 

1 

1395 

5! 

PSIZE(BC),  OGRIDDSP, ,,,,,,,,, , LAMBDA, , ,  1  }; 

1 

1396 

5! 

CALL  OFPEDR  (  BC,  HSIZE(BC),  NITER,  1  }; 

1 

1397 

51 

ENDDO? 

1 

1398 

4! 

ENDIF; 

1 

1399 

31$ 

$1 

1400 

31 

IF  NOT  GLBCNVRG  AND  NITER  <=  MAXITER  THEN 

j 

1401 

41$ 

$1 

1402 

41$ 

USE  APPROPRIATE  RESIZING  METHOD 

$1 

1403 

41$ 

$  1 

1404 

41 

IF  NITER  >«  FSDS  AND  NITER  <=  FSDE  THEN 

j 

1405 

51 

CALL  FSD  (  NDV,  NITER,  FSDS,  FSDE,  MPS,  OCS,  ALPHA, 

1 

1406 

5! 

CNVRGLIM,  GLBDES,  LOCLVAR,  [PTRANS],  CONST, 

1 

1407 

51 

APPCNVRG,  CTL,  CTLMIN,  DESHIST  ) ; 

1 

1408 

51 

ENDIF; 

1 

1409 

41$ 

$1 

1410 

4! 

IF  (  NITER  >=  MPS  AND  NITER  <“  MPE  )  OR 

t 

1411 

51 

{  NITER  >=  OCS  AND  NITER  <=  OCE  )  THEN 

1 

1412 

51$ 

$1 

1413 

51$ 

USE  MATHEMATICAL  PROGRAMMING  OR  OC  METHODS 

$1 

1414 

51$ 

$1 

1415 

51$ 

OBTAIN  THE  SENSITIVITIES  OF  THE  CONSTRAINTS  WRT  THE 

$1 

1416 

51$ 

DESIGN  VARIABLES 

$1 

1417 

51$ 

$1 

1418 

51 

CALL  MAKDFV  (  NITER,  NDV,  [PMINT] ,  [PMAXT] ,  CONST,  [AMAT]  ); 

1 

1419 

51 

CALL  LAMINSNS  {  NITER,  NDV,  GLBDES,  LOCLVAR,  [PTRANS],  CONST, 

1 

1420 

51 

[AMAT]  ) ; 

1 

1421 

51$ 

$1 

1422 

51$**** 

a*************************************************************************?! 

1423 

51$ 

SENSITIVITY  EVALUATION  FOR  BOUNDARY  CONDITION  DEPENDENT  CONSTRAINTS$ 1 

1424 

51 §**************************************************************★***************$» 

1425 

51$ 

$1 

1426 

5! 

FOR  BC  =  1  TO  NUMOPTBC  DO 

i 

1427 

6! 

CALL  ABOUND  (  NITER,  BC,  CONST,  ACT BOUND,  NAUS,  NACSD,  [PGAS] , 

1 

1428 

6! 

PCAS,  ACT AERO,  ACTDYN,  ACTFLUT,  ACTPNL,  ACT BAR, 

1 

1429 

61 

NMPC,  NSPC,  NOMIT,  NRSET,  NGDR,  USET(BC)  ); 

j 

1430 

61 

IF  ACTBOUND  THEN 

1 

1431 

71$ 

$1 

1432 

71$ 

REESTABLISH  THE  BASE  USET  AND  PARTITIONING  DATA  FOR  THE  BC 

$1 

1433 

71$ 

IF  GDR  CHANGED  IT 

$1 

1434 

71$ 

NOTE,  THIS  LEAVES  AN  INCOMPATIBILITY  BETWEEN  USET(BC)  AND 

$1 

1435 

71$ 

BGPDT(BC)  SINCE  THE  LATTER  IS  NOT  REGENERATED. 

$1 

1436 

71$ 

THIS  INCOMPATIBILITY  WILL  NOT  AFFECT  THE  SENSITIVITY  ANALYSIS$ 1 

1437 

71$ 

AND  WILL  BE  CORRECTED  IN  THE  SUBSEQUENT  ANALYSIS 

$1 

1438 

71$ 

$1 

1439 

71 

IF  NGDR  <>  0  THEN 

1440 

81 

CALL  MKUSET(BC,  GSIZEB,  [Y$(BC)3,  [TMN (BC) ] ,  [PGMN(BC)], 

1441 

81 

[PNSF (BC) ] ,  [ PFOA (BC) ] ,  (PARL(BC)],  USET(BC)) 

;  i 
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1442 

8! 

ENDIF; 

! 

1443 

7 !  $ 

$  ! 

1444 

71$ 

EVALUATE  FREQUENCY  CONSTRAINT  SENSITIVITIES 

$  ! 

1445 

7 !  $ 

$  1 

1446 

7! 

IF  ACTDYN  THEN 

1 

1447 

8! 

IF  NGDR  <>  0  THEN 

1 

1448 

9! 

CALL  ROWPART  {  (PHIG{BC)],  ,  [GTMP],  [PGDRG(BC) ]  ); 

1 

1449 

9! 

CALL  FREQS ENS  (  NITER,  BC,  NDV,  GLBDES,  CONST,  LAMBDA, 

! 

1450 

9! 

GMKCT,  DKVI,  GMMCT,  DMVI, 

i 

1451 

9! 

[GTMP] ,  [AMAT]  )  ; 

j 

1452 

91 

ELSE 

1 

1453 

91 

CALL  FREQS ENS  (  NITER,  BC,  NDV,  GLBDES,  CONST,  LAMBDA, 

j 

1454 

9 i 

GMKCT,  DKVI,  GMMCT,  DMVI, 

i 

1455 

9! 

(PHIG(BC) ) ,  [AMAT]  ); 

i 

1456 

9! 

ENDIF; 

j 

1457 

8  ! 

ENDIF; 

1458 

71$ 

5  ! 

1459.' 

7 !  $ 

EVALUATE  FLUTTER  CONSTRAINT  SENSITIVITIES 

$  ! 

1460 

7 !  $ 

$! 

1461 

7! 

IF  ACTFLUT  THEN 

j 

1462 

8! 

SUB  0; 

i 

1463 

8! 

LOOP  TRUE; 

i 

1464 

8! 

IF  NGDR  <>  0  CALL  ROWPART  ( [PHIG(BC) ] , , [GTMP] , [PGDRG(BC) ] ) 

; ! 

1465 

8! 

WHILE  LOOP  DO 

» 

1466 

9! 

SUB  SUB  +  1; 

i 

1467 

9! 

IF  NGDR  <>  0  THEN 

j 

1468 

10! 

CALL  FLUTSENZ  (NITER,  BC,  SUB,  LOOP,  GSIZEB,  NDV, 

!  4- 

1469 

10! 

GLBDES,  CONST,  GMKCT,  DKVI,  GMMCT, 

! 

1470 

10! 

DMVI,  CLAMED  A,  LAMBDA, 

f 

1471 

10! 

[QKHUTL (BC,SUB)  ]  , 

! 

1472 

10! 

[MHHFL (BC, SUB) ] ,  [BHHFL (BC,SUB) ] , 

! 

1473 

10! 

[KHHFL (BC, SUB) ] ,  [GTMP],  (AMAT] , 

! 

1474 

10! 

AEROZ  ) ; 

!  4- 

1475 

10! 

ELSE 

t 

1476 

10! 

CALL  FLUTSENZ  (NITER,  BC,  SUB,  LOOP,  GSIZEB,  NDV, 

!  4- 

1477 

10! 

GLBDES,  CONST,  GMKCT,  DKVI,  GMMCT, 

! 

1478 

10! 

DMVT,  CLAMBDA,  LAMBDA, 

! 

1479 

10! 

[QKHLFL (BC,SUB) ] , 

! 

1480 

10! 

[MHHFL (BC, SUB) ] ,  [BHHFL (BC, SUB) ] , 

! 

1481 

10! 

[KHHFL (BC, SUB) ] ,  [PHIG  (BC) ] ,  [AMAT], 

( 

1482 

10! 

AEROZ  ) ; 

I  4- 

1483 

10! 

ENDIF; 

i 

1484 

9! 

END DO ; 

j 

1485 

8! 

ENDIF; 

1 

1486 

71$ 

$! 

1487 

7 !  $ 

EVALUATE  ACTIVE  DISPLACEMENT  DEPENDENT  CONSTRAINTS  FROM 

$! 

1488 

7 !  $ 

THE  STATICS  DISCIPLINE 

$! 

1489 

7  I  $ 

$! 

1490 

7! 

IF  NAUS  >  0  THEN 

i 

1491 

8 !  $ 

$! 

1492 

81$ 

SENSITIVITIES  OF  CONSTRAINTS  WRT  DISPLACEMENTS  FOR  STATIC$$ 1 

1493 

6 !  $ 

$! 

1494 

8! 

CALL  NULLMAT  (  [DFDU] ,  (DPGVJ  ) ; 

i 

1495 

8! 

IF  NACSD  >  NAUS  *  NDV  THEN 

i 

1496 

9 !  $ 

$! 

1497 

9!  $ 

USE  GRADIENT  METHOD 

$1 

1498 

9!  $ 

$ ! 

1499 

9! 

CALL  MAKDFU  (  NITER,  BC,  GSIZEB,  [SMATJ ,  [GLBSIG], 

j 

1500 

9! 

CONST,  [DFDU]  ); 

» 

1501 

9! 

ELSE 

! 

1502 

9 !  $ 

$1 

1503 

91$ 

USE  VIRTUAL  LOAD  METHOD 

$  ! 

1504 

91$ 

$! 

1505 

9! 

CALL  MAKDFU  (  NITER,  BC,  GSIZEB,  [SMAT],  [GLBSIG], 

! 

1506 

9! 

CONST,  [DPGV]  ) ; 

i 

1507 

9! 

ENDIF; 

i 

1508 

81$ 

$  ! 

1509 

8 !  $ 

SOME  RELATIVELY  SIMPLE  CALCULATIONS  THAT  PRECEDE  THE 

$! 

1510 

8  !  $ 

LOOP  ON  THE  DESIGN  VARIABLES 

$! 

1511 

6 !  $ 

$  1 

1512 

8! 

IF  NGDR  <>  0  THEN 

i 

1513 

9! 

CALL  PARTN  (  (UG(BC)],,,,  [UGA] ,  [PGAS],  [PGDRG(BC) ] ) ; 

j 

1514 

9! 

ELSE 

i 

1515 

9! 

CALL  COLPART  (  [UG(BC)J,  ,  [UGA],  [PGAS]  ); 

i 

1516 

9! 

ENDIF; 

i 

1517 

8 !  $ 

$  1 

1518 

81$ 

OBTAIN  THE  SENSITIVITIES  OF  THE  DESIGN 

$  ! 

1519 

8 !  $ 

DEPENDENT  LOADS 

$! 

1520 

8 !  $ 

$  ! 

1521 

8! 

CALL  DDLOAD(NDV,  GSIZEB,  BC,  SMPLOD,  DDFLG, [PGAS] , [DPVJ] } 

;  ! 

1522 

81$ 

$  ! 
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1523 

8! 

CALL  MAKDVU  (  NITER,  NDV,  GLBDES,  [UGA],  [DKUG] , 

i 

1524 

8! 

GMKCT ,  DKVI  )  ; 

j 

1525 

8! 

CALL  NULLMAT  {  [DUG]  ); 

1526 

81 

IF  NRSET  <>  0  THEN 

1 

1527 

9! 

IF  NGDR  <>  0  THEN 

* 

1528 

10! 

CALL  PARTN  ( [AG (BC) ] , , , ,  [AGA] ,  [PGAS],  [PGDRG(BC) } ) 

•  j 

1529 

10! 

ELSE 

1530 

10! 

CALL  COL PART  (  [AG(BC)],  ,  [AGA],  [PGAS]  ); 

1531 

10! 

ENDIF; 

• 

1532 

9! 

CALL  MAKDVU  (  NITER,  NDV,  GLBDES,  [AGA],  [DMAG] , 

1533 

9! 

GMMCT,  DMVI  }  ; 

1534 

9! 

[DUG]  :=  [DKUG]  +  [DMAG]; 

1535 

9! 

ELSE 

1536 

9! 

[DUG]  :=  [DKUG]; 

1537 

9! 

ENDIF; 

; 

1538 

B  !  $ 

$ ! 

1539 

8!$ 

ACCOUNT  FOR  VIRTUAL  LOAD  METHOD 

$  ! 

1540.-* 

8!$ 

$ ! 

1541 

8! 

IF  NACSD  >  NAUS  *  NDV  THEN 

1542 

9 !  § 

$  ! 

1543 

9 !  $ 

USE  GRADIENT  METHOD 

$  ! 

1544 

9 !  $ 

$  ! 

1545 

9! 

IF  DDFLG  >  0  THEN 

’ 

1546 

10! 

[DPGVJ  :*  [DPVJ]  +  [DUG]; 

1547 

10! 

ELSE 

j 

1548 

10! 

[DPGV]  :«  [DUG]; 

1549 

10! 

ENDIF; 

1550 

9! 

ELSE 

! 

1551 

9 !  $ 

S  ! 

1552 

9 !  $ 

USE  VIRTUAL  LOAD  METHOD 

$  ! 

1553 

9 !  $ 

$  ! 

1554 

9! 

IF  DDFLG  >  0  THEN 

1555 

10! 

[DFDU]  [DPVJ]  +  [DUG]; 

* 

1556 

10! 

ELSE 

* 

1557 

10! 

[DFDU]  [DUG]; 

j 

1558 

10! 

ENDIF; 

1559 

9! 

ENDIF; 

' 

1560 

8!$ 

$ ! 

1561 

8 !  $ 

REDUCE  THE  RIGHT  HAND  SIDES  TO  THE  L  SET 

$  ! 

1562 

8 !  S 

$ ! 

1563 

8! 

CALL  NULLMAT  (  [DPNV] ,  [DMUN]  )  ; 

• 

1564 

8! 

IF  NMPC  <>  0  THEN 

1 

1565 

9! 

CALL  GREDUCE  (,[DPGV],  [PGMNS ( BC} ] , [TMN (BC) ] , ,  [DPNV]) 

•  i 

1566 

9! 

ELSE 

* 

1567 

9! 

[DPNV]  :=  [DPGV]; 

1568 

9! 

ENDIF; 

' 

1569 

8 !  $ 

$ ! 

1570 

8! 

CALL  NULLMAT  (  [DPFV] ,  [DMUF]  ); 

i 

1571 

8! 

IF  NS PC  <>  0  THEN 

j 

1572 

9! 

CALL  NREDUCE  {,  [DPNV],  [PNSFS(BC)],  ,  ,  ,  ,  [DPFV]); 

j 

1573 

9! 

ELSE 

t 

1574 

9! 

[DPFV]  [DPGV); 

! 

1575 

9! 

ENDIF; 

! 

1576 

8!$ 

$  ! 

1577 

8! 

CALL  NULLMAT  (  [DPAV] ,  [DMUA]  ) ; 

• 

1578 

8! 

IF  NGDR  <>  0  THEN 

• 

1579 

9! 

[DPAV]  :=  TRANS (  [GSUBO(BC) ]  )  *  [DPFV] ; 

i 

15B0 

9! 

ELSE 

• 

1581 

9! 

IF  NOMIT  <>  0  THEN 

! 

1582 

10! 

CALL  FREDUCE  {,  [DPFV],  [PFOAS(BC)],  , 

i 

1583 

10! 

[KOOINV(BC) ],  ,  ,  [GSUBO ( BC) ] ,  , 

i 

1584 

10! 

[DPAV],  [DPOV] ,  ); 

j 

1585 

10! 

ELSE 

j 

1586 

10! 

[DPAV]  :«  [DPFV]; 

i 

1587 

10! 

ENDIF; 

' 

1588 

9! 

ENDIF; 

' 

1589 

8 !  $ 

$  ! 

1590 

8! 

IF  NRSET  <>  0  THEN 

* 

1591 

9! 

CALL  ROWPART  (  [DPAV],  [DPRV],  [DPLV],  t PARLS (BC) ]  ); 

i 

1592 

9! 

[DRHS]  TRANS {  [D { BC) )  )  *  [DPLV]  +  [DPRV]; 

» 

1593 

9 !  $ 

$  ! 

1594 

9 !  $ 

PROCESS  ACTIVE  CONSTRAINTS  FOR  STATICS  DISCIPLINE 

$! 

1595 

9!  $ 

$! 

1596 

9! 

CALL  INERTIA  (  [MRR(BC)],  [DRHS],  [DURD]  ); 

i 

1597 

9! 

[DULD]  :=  [D (BC) ]  *  [DURD] ; 

! 

1598 

9! 

CALL  ROWMERGE  (  [DUAD] ,  [DURD],  [DULD],  [PARLS (BC)]  ) 

•  j 

1599 

9! 

[DPLV]  [DPLV]  +  [IFR{BO]  *  [DURD]; 

j 

1600 

9! 

CALL  FBS  (  [KLLINV (BC) ) ,  [DPLV],  [DULV]  ); 

1 

1601 

9! 

CALL  YSMERGE  (  [DUAV],  ,  [DULV],  [PARLS (BC)]  ); 

t 

1602 

9! 

ELSE 

1 

1603 

9! 

CALL  FBS  (  [KLLINV (BC) ] ,  [DPAV],  [DUAV]  ); 

i 
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ENDIF; 


1604 

9! 

1605 

81$ 

1606 

8 1 S 

1607 

8 1 S 

1608 

81 

1609 

8! 

1610 

91 

1611 

91 

1612 

9! 

1613 

101 

1614 

11! 

1615 

11! 

1616 

11! 

1617 

11! 

1618 

10! 

1619 

10! 

1620 

10! 

1621  •' 

10! 

1622 

10! 

1623 

10! 

1624 

9! 

1625 

8 !  $ 

1626 

e  is 

1627 

8  S 

1628 

8! 

1629 

9! 

1630 

9! 

1631 

9! 

1632 

9! 

1633 

8 !  S 

1634 

8! 

1635 

9! 

1636 

9! 

1637 

9! 

1638 

9! 

1639 

81$ 

1640 

8 !  S 

1641 

8  !  $ 

1642 

8! 

1643 

9 !  $ 

1644 

9!$ 

1645 

9 !  S 

1646 

9! 

1647 

9! 

1648 

9 !  $ 

1649 

9 !  $ 

1650 

9 !  $ 

1651 

9! 

1652 

9! 

1653 

8!$ 

1654 

8! 

1655 

7!$ 

1656 

7!$ 

1657 

7  I  $ 

1658 

7!$ 

1659 

7! 

1660 

8! 

1661 

8! 

1662 

8! 

1663 

8! 

1664 

8! 

1665 

9! 

1666 

9! 

1667 

9! 

1668 

9! 

1669 

9! 

1670 

9! 

1671 

9! 

1672 

9! 

1673 

10!$ 

1674 

10!$ 

1675 

10!$ 

1676 

10!$ 

1677 

10! 

1678 

10! 

1679 

10! 

1680 

11! 

1681 

11! 

1682 

11! 

1683 

11! 

1684 

11! 

$! 


RECOVER  TO  THE  F  SET  $! 

$  ! 

CALL  NULLMAT  {  [DUFV]  ) ;  1 

IF  NGDR  <>  0  THEN  ! 

[DUFV]  [GSUBO (BC) ]  *  [DUAV];  ! 

ELSE  ! 

IF  NOMIT  <>  0  THEN  ! 

IF  NRSET  <>  0  THEN  ! 


[TMP1]  [DPOV]  -  [IFM(BC)]  *  [DUAD]; 

ELSE 

[TMP1]  :«  [DPOV] ; 

ENDIF; 

CALL  FBS  (  [KOOINV(BC) ) ,  [TMP1],  [UOO]  ); 

[UOJ  :*  [GSUBO (BC) ]  *  [DUAV]  +  [UOO]; 

CALL  ROWMERGE  ([DUFV],  [UO] ,  [DUAV],  [PFOAS (BC) ]  )  s 
ELSE 

[DUFV]  [DUAV]; 

ENDIF; 

ENDIF; 

$ 

REDUCE  THE  LEFT  HAND  SIDE  MATRIX  $ 

§ 

IF  NMPC  <>  0  THEN 

CALL  GREDUCE  { , [DFDU] , [PGMNS (BC) ] ,  [TMN (BC) ] , , [DFDUN]  )  ; 
ELSE 

[DFDUN]  [DFDU]; 

ENDIF; 

$ 


IF  NS PC  <>  0  THEN  ! 

CALL  ROWPART  (  [DFDUN],  ,  [DFDUF] ,  [PNSFS(BC)]  );  i 

ELSE  ! 

[DFDUF]  [DFDUN];  l 

ENDIF;  ! 

$! 

ACCOUNT  FOR  VIRTUAL  LOAD  METHOD  $  ! 

$! 

IF  NACSD  >  NAUS  *  NDV  THEN  ! 

$! 

USE  GRADIENT  METHOD  $! 

SI 

CALL  MKAMAT  ( [AMAT] ,  [DFDUF],  [DUFV],  PCAS,  [PGAS]  );  I 

ELSE  •  I 

$! 

USE  VIRTUAL  LOAD  METHOD  $! 

$  I 

CALL  MKAMAT  ([AMAT],  [DUFV],  [DFDUF],  PCAS,  [PGAS]  );  ! 

ENDIF;  I 

SI 

ENDIF;  $  END  IF  ON  ACTIVE  APPLIED  STATIC  LOADS  $! 

SI 

EVALUATE  ACTIVE  CONSTRAINTS  FROM  S I 

THE  STATIC  AEROELASTICITY  DISCIPLINE  SI 

SI 

IF  ACT AERO  THEN  l 

LOOP  TRUE;  1 

ACTUAGG  :«  FALSE;  I 

SUB  ;«  0;  I 

CALL  NULLMAT  (  [DUFV]  )  ;  ! 

WHILE  LOOP  DO  I 


SUB  :«  SUB  +  1;  I 

CALL  AROSNSDR  (  NITER,  BC,  SUB,  LOOP,  MINDEX,  CONST,  I 
SYM,  NGDR,  I 

[ PGDRG (BC) ] ,  [UAG(BC) ] ,  [AAG (BC) ] ,  I 

ACTUAG,  [UGA],  [AGA] ,  [PGAA] ,  [PGAU] ,  I 

PCAA, [UAGC ( BC, SUB) ],  { AAGC (BC,  SUB)  ] ,  ! 

ACTAEFF, [AUAGC] ,  [AAAGC] ,  PCAE  );  I 

IF  ACTAEFF  THEN  I 

SI 

PROCESS  PSEUDO  DISPLACEMENTS  FOR  EFFECTIVENESS  $! 

CONSTRAINTS  S I 

Si 

CALL  MAKDVU  (  NITER,  NDV,  GLBDES,  [AUAGC],  [DKUG] ,  I 
GMKCT ,  DKVI  ) ;  I 

IF  NRSET  <>  0  THEN  I 

CALL  MAKDVU  (  NITER,  NDV,  GLBDES,  [AAAGC],  [ DMAG ] , I 
GMMCT,  DMVI) ;  I 

[DPGV]  [DKUG]  +  [DMAG];  I 

CALL  MAKDVU  {  NITER,  NDV,  GLBDES,  [AUAGC],  [ DMUG ) , I 
GMMCT,  DMVI) ;  ! 
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1685 

11! 

1686 

11! 

1687 

11! 

1688 

10!$ 

1689 

10!$ 

1690 

10!$ 

1691 

10! 

1692 

10! 

1693 

11! 

1694 

11! 

1695 

11! 

1696 

12! 

1697 

11! 

1698 

11! 

1699 

11! 

1700 

11! 

1701 

10!$ 

1702  .• 

10! 

1703 

10! 

1704 

11! 

1705 

11! 

1706 

12! 

1707 

11! 

1708 

11! 

1709 

11! 

1710 

11! 

1711 

10!$ 

1712 

10! 

1713 

10! 

1714 

11! 

1715 

11! 

1716 

11! 

1717 

11! 

1718 

12! 

1719 

12! 

1720 

12! 

1721 

12! 

1722 

12! 

1723 

13! 

1724 

13! 

1725 

13! 

1726 

13! 

1727 

12! 

1728 

12! 

1729 

12! 

1730 

12! 

1731 

11! 

1732 

10!$ 

1733 

10! 

1734 

11! 

1735 

11! 

1736 

11! 

1737 

11! 

1738 

11! 

1739 

11! 

1740 

11! 

1741 

11! 

1742 

11!$ 

1743 

11!$ 

1744 

11!$ 

1745 

11! 

1746 

11! 

1747 

11! 

1748 

11!$ 

1749 

11! 

1750 

11! 

1751 

11!$ 

17  52 

11! 

1753 

11! 

1754 

11! 

1755 

11! 

1756 

11! 

1757 

11!$ 

1758 

11! 

1759 

11! 

1760 

11! 

1761 

11!$ 

1762 

11!$ 

1763 

11!$ 

1764 

11! 

1765 

10! 

ELSE  ; 

[DPGV]  [DKUG] ; 

ENDIF;  ! 

$ ! 

REDUCE  THE  RIGHT  HAND  SIDES  TO  THE  L  SET  $! 

$  ! 


CALL  NULLMAT  (  [DPNV] ,  [DMUN]  );  * 

IF  NMPC  <>  0  THEN  ! 

CALL  GREDUCE  (  ,  [DPGV],  [PGMNS(BC)],  [TMN(BC)],,  ! 

[DPNV]);  1 

IF  NRSET  <>  0  CALL  GREDUCE  {  ,  [DMUG] ,  I 

[PGMNS(BC)],  [TMN(BC)],,  [DMUN]  );  ! 

ELSE  1 

[DPNV]  [DPGV];  ! 

IF  NRSET  <>  0  [DMUN]  :*  [DMUG];  1 

ENDIF;  ! 

$  ! 

CALL  NULLMAT  (  [DPFV]  ,  [DMUF]  )  ; 

IF  NS PC  <>  0  THEN  1 

CALL  NREDUCE  { , [DPNV] , [PNSFS (BC) ] , , , , ,  [DPFV]);  ! 
IF  NRSET  <>  0  ! 

CALL  NREDUCE  (, [DMUN] , [PNSFS (BC) ],,//#  [DMUF]);! 
ELSE  ! 

[DPFV]  [DPGV];  1 

IF  NRSET  <>  0  [DMUF]  [DMUN];  '■ 

ENDIF;  ! 

$  ! 

CALL  NULLMAT  {  [DPAV],  [DMUA]  );  ! 

IF  NGDR  <>  0  THEN  ! 

[DPAV]  :=  TRANS (  [GSUBO(BC)]  )  *  [DPFV];  i 

IF  NRSET  <>  0  [DMUA] : =TRANS { [GSUBO (BC) ] ) * [DMUF] ;  ! 

ELSE  1 

IF  NOMIT  <>  0  THEN  ! 

CALL  FREDUCE  (  ,  [DPFV],  [PFOAS(BC)],  1,  ! 

[ KOOL ( BC , SUB ) ] ,  [KOOU ( BC, SUB) ] ,  ! 

[KAO (BC, SUB) ] ,  [GASUBO {BC, SUB) ] ,  ,1 
[DPAV],  [DPOV] ,  );  ! 

IF  NRSET  <>  0  1 

CALL  FREDUCE  (  ,  [DMUF],  [PFOAS(BC)],  1,  ! 

[KOOL { BC, SUB) ] ,  [KOOU ( BC, SUB) } ,  ! 

[KAO (BC, SUB) ] ,  [GASUBO (BC, SUB) ],  ,! 
[DMUA],  [DMUO] ,  );  ! 

ELSE  J 

[DPAV]  :=  .[DPFV] ;  ' 

IF  NRSET  <>  0  [DMUA]  :=  [DMUF];  ! 

ENDIF;  ! 

ENDIF;  1 


IF  NRSET  <>  0  THEN 

CALL  ROW PART  { [DPAV] , [DPRV] ,  [DPLV] ,  [ PARLS ( BC) ]  ) 

CALL  ROWPART  ( [DMUA] , [DMUR] , [DMUL] , [PARLS (BC) ]  ) 
CALL  GFBS  (  [RL11 (BC,SUB) ] ,  [RU1 1 ( BC, SUB) ] , 
[DPLV],  [R11DPL]  ); 

[DPI]  :=  TRANS ( [D(BC)  ])  *  [DMUL]  +  [DMUR]  - 
[R21 (BC, SUB) ]  *  [R11DPL] ; 

[DRHS]  ;=  TRANS {  [D(BC)]  )  *  [DPLV]  +  [DPRV]  - 
[R31 (BC, SUB) ]  *  [R11DPL] ; 

PROCESS  ACTIVE  CONSTRAINTS  FOR  SAERO  DISCIPLINE 


$! 

$! 

$! 


CALL  GFBS  (  [KL11 (BC, SUB) ] ,  [KU1 1 ( BC, SUB) ] , 
[DPI],  [DK1V]  ) ; 

[DRHS]  :=  [DRHS]  -  [K21 (BC,SUB) ]  *  [DK1V]; 


$! 


CALL  DECOMP  (  [LHSA(BC,SUB)  ]  ,  [LHSL] ,  [LHSU]  );  ! 

CALL  GFBS  (  [LHSL],  [LHSU],  [DRHS],  [DU2]  );  1 

§  ! 


[DU1R]  [DK1V]  +  [K1112 (BC, SUB)  ]  *  [DU2];  ! 

[DU1L]  [R11DPL]  +  [Rll 12 (BC, SUB) ]  *  [DU1R]  +! 

[R1113 (BC, SUB) ]  *  [DU2] ;  ! 

[EFFSENS]  -  [R31 (BC,SUB) ]  *  [DU1L]  -  i 

[R32 (BC,SUB) ]  *  [DU1R];  ! 

$  ! 


CALL  AEROEFFS  (  NITER,  BC,  SUB, 
PCAE,  [EFFSENS] 


ELSE 


SYM,  NDV,  CONST, 
[AMAT]  ); 


NOTE  THAT  SAERO  W/O  SUPPORT  IS  NOT  SUPPORTED 


ENDIF; 

ENDIF;  $  END  IF  ON  ACTAEFF 


$! 

$! 

$! 

i 

$! 
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1766 

9 !  $ 

$  ! 

1767 

91 

IF  ACTUAG  THEN 

! 

1768 

10!$ 

$! 

1769 

10!$ 

SENSITIVITIES  OF  CONSTRAINTS  WRT  DISPLACEMENTS 

$! 

1770 

10!$ 

FOR  SAERO.  THE  ACTUAGG  FLAG  WILL  BE  RETURNED 

$! 

1771 

10!$ 

FALSE  IF  ONLY  TRIM  PARAMETER  CONSTRAINTS  ARE  ACTIVE 

$! 

1772 

10!$ 

$! 

1773 

10! 

CALL  NULLMAT  (  [DFDU]  )  ; 

! 

1774 

10! 

CALL  MAKDFU  (  NITER,  BC,  GSIZEB,  [SMAT] ,  [GLBSIG] , 

1775 

10! 

CONST,  [DFDU] ,  ACTUAGG,  SUB  ); 

1776 

10!$ 

$! 

1777 

10!$ 

SOME  RELATIVELY  SIMPLE  CALCULATIONS  THAT  PRECEDE 

$! 

1778 

10!$ 

THE  LOOP  ON  THE  DESIGN  VARIABLES 

$  ! 

1779 

10!$ 

$ ! 

1780 

10! 

CALL  MAKDVU  (  NITER,  NDV,  GLBDES,  [UGA],  [DRUG], 

1781 

10! 

GMKCT,  DKVI  ); 

1782 

10! 

CALL  NULLMAT  (  [DPGV]  )  ; 

! 

1783-' 

10! 

IF  NR5ET  <>  0  THEN 

1784 

11! 

CALL  MAKDVU  (  NITER,  NDV,  GLBDES,  [AGA] ,  [DMAG] , 

1785 

11! 

GMMCT,  DMVI  ) ; 

1786 

11! 

[DPGV]  [DRUG]  +  [DMAG]; 

1787 

11! 

CALL  MAKDVU  (  NITER,  NDV,  GLBDES,  [UGA],  [DMUG] , 

1788 

11! 

GMMCT,  DMVI  ) ; 

1789 

11! 

ELSE 

1790 

11! 

[DPGV]  [DRUG]; 

1791 

11! 

ENDIF; 

1792 

10!$ 

$! 

1793 

10!$ 

REDUCE  THE  RIGHT  HAND  SIDES  TO  THE  L  SET 

$! 

1794 

10!$ 

$! 

1795 

10! 

CALL  NULLMAT  {  [DPNV] ,  [DMUN]  }; 

! 

1796 

10! 

IF  NMPC  <>  0  THEN 

1797 

11! 

CALL  GREDUCE  (  ,  [DPGV],  (PGMNS(BC)],  [TMN (BC) ] , , 

1798 

11! 

[DPNV]) ; 

1799 

11! 

IF  NRSET  <>  0  CALL  GREDUCE  (  ,  [DMUG], 

1800 

12! 

[PGMNS (BC) ] ,  [TMN ( BC) ] , ,  [DMUN]  ); 

1801 

11! 

ELSE 

1802 

11! 

[DPNV]  [DPGV]; 

! 

1803 

11! 

IF  NRSET  <>  0  [DMUN]  [DMUG]; 

1804 

11! 

ENDIF; 

1805 

10!$ 

$! 

1806 

10! 

CALL  NULLMAT  {  [DPFV]  ,  [DMUF]  ); 

! 

1807 

10! 

IF  NSPC  <>  0  THEN 

j 

1808 

11! 

CALL  NREDUCE  ( , [DPNV] ,  [PNSFS (BC)  ] , , ,  , ,  [DPFV]); 

! 

1809 

11! 

IF  NRSET  <>  O 

1810 

12! 

CALL  NREDUCE  (,  [DMUN] ,[ PNSFS ( BC) ],,,, ,  [DMUF]) 

;  ! 

1811 

11! 

ELSE 

1812 

11! 

[DPFV]  :»  [DPGV]; 

1813 

11! 

IF  NRSET  <>  0  [DMUF]  :«  [DMUN]; 

1814 

11! 

ENDIF; 

1815 

10!$ 

$! 

1816 

10! 

CALL  NULLMAT  (  [DPAV] ,  [DMUA]  ); 

1817 

10! 

IF  NGDR  <>  0  THEN 

1818 

11! 

[DPAV]  :**  TRANS  (  (GSUBO(BC)]  )  *  [DPFV]; 

! 

1819 

11! 

IF  NRSET  <>  0  [DMUA]  :  “TRANS  {  [GSUBO  (BC)  ] )  *  [DMUF]  ; 

1820 

11! 

ELSE 

1821 

11! 

IF  NOMIT  <>  0  THEN 

1822 

12! 

CALL  FREDUCE  (  ,  [DPFV],  (PFOAS(BC)J,  1, 

1823 

12! 

[KOOL (BC, SUB) ] ,  [KOOU ( BC, SUB)  ]  , 

1824 

12! 

[KAO (BC, SUB) ] ,  [GASUBO (BC, SUB)  ] ,  , 

1825 

12! 

[DPAV],  [DPOV] ,  ); 

1826 

12! 

IF  NRSET  <>  0 

1827 

13! 

CALL  FREDUCE  (  ,  [DMUF],  [PFOAS(BC)],  1, 

1828 

13! 

[KOOL (BC, SUB) ] ,  [KOOU (BC, SUB)  ], 

1829 

13! 

[RAO (BC, SUB) ] ,  [GASUBO (BC, SUB)  ] ,  , 

1830 

13! 

[DMUA],  [DMUO] ,  )  ; 

1B31 

12! 

ELSE 

1832 

12! 

[DPAV]  [DPFV]; 

! 

1833 

12! 

IF  NRSET  <>  0  [DMUA]  [DMUF] ; 

! 

1834 

12! 

ENDIF; 

! 

1835 

11! 

ENDIF; 

I 

1836 

10!$ 

$! 

1837 

10! 

IF  NRSET  <>  0  THEN 

1838 

11! 

CALL  ROWPART  ( [DPAV] ,  [DPRV]  ,  [DPLV] ,  [PARLS(BC)  ]  )  ; 

1839 

11! 

CALL  ROWPART  { [DMUA] , [DMUR] ,  [DMUL] ,[ PARIS (BC)  ]  ); 

1840 

11! 

CALL  GFBS  (  [RL11 (BC, SUB) ] ,  [RU1 1 ( BC,SUB)  ] , 

1841 

11! 

[DPLV],  [R11DPL]  ) ; 

1842 

11! 

[DPI]  TRANS ( [D (BC) J )  *  [DMUL]  +  [DMUR]  - 

1643 

11! 

[R21 (BC, SUB) ]  *  [R11DPL] ; 

IB  4  4 

11! 

[DRHS]  TRANS (  [D(BC)]  )  *  [DPLV]  +  [DPRV]  - 

1845 

11! 

[R31 (BC, SUB) ]  *  [R11DPL] ; 

1846 

11!$ 

$! 
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1847 

11!$ 

1848 

11!$ 

1849 

11! 

1850 

11! 

1851 

11! 

1852 

11!$ 

1853 

11! 

1854 

11! 

1855 

11! 

1856 

11! 

1857 

11! 

1858 

11!$ 

1859 

11! 

1860 

11! 

1861 

11! 

1862 

11! 

1863 

11! 

1864 

11! 

1865 

11! 

1866 

11!$ 

1867 

11!$ 

1868 

11!$ 

1869 

11! 

1870 

10!$ 

1871 

10!$ 

1872 

10!$ 

1873 

10! 

1874 

10! 

1875 

11! 

1876 

11! 

1877 

11! 

1878 

12! 

1879 

13! 

1880 

13! 

1881 

13! 

1882 

13! 

1883 

12! 

1884 

12! 

1885 

12! 

1886 

12! 

1887 

12! 

1888 

12! 

1889 

12! 

1890 

12! 

1891 

11! 

1892 

10! 

1893 

10! 

1894 

10!$ 

1895 

10! 

1896 

9! 

1897 

8 !  $ 

1898 

8! 

1899 

9 !  $ 

1900 

9 !  $ 

1901 

9 !  $ 

1902 

9! 

1903 

9! 

1904 

10! 

1905 

10! 

1906 

10! 

1907 

10! 

1908 

10! 

1909 

9 !  $ 

1910 

9! 

1911 

9! 

1912 

10! 

1913 

10! 

1914 

10! 

1915 

10! 

1916 

9!  $ 

1917 

9!$ 

1918 

9!  $ 

1919 

9 !  $ 

1920 

9!  $ 

1921 

9! 

1922 

9!  $ 

1923 

9! 

1924 

8! 

1925 

7 !  $ 

1926 

7 !  $ 

1927 

7 !  $ 

PROCESS  ACTIVE  CONSTRAINTS  FOR  SAERO  DISCIPLINE  $! 

CALL  GFBS  (  [KL11 (BC,SUB) ] ,  [KU11(BC,SUB) ] ,  ! 

{DPI] ,  [DK1V]  );  l 

[DRHS]  [DRHS]  -  [K21 (BC,SUB) ]  *  [DK1V] ;  i 

§  ! 

CALL  AEROSENS  (  NITER/  BC,  MINDEX,  SUB,  CONST,  ! 

SYM,  NDV,  '■ 

BGPDT(BC),  STABCF,  [PGAA] ,  ! 

[LHSA{BC,SUB) ] ,  [RHSA( BC, SUB) ] ,  1 

[DRHS],  [AAR],  [DDELDV] ,  [AMAT]  );! 

$! 

[DURV]  [K1112  (BC, SUB)  ]  *  [AAR]  +  '• 

[PAR (BC, SUB) ]  *  [DDELDV]  +  [DK1V] ;  ! 

[DULV]  :=  [R1112 (BC, SUB) ]  *  [DURV]  +  ! 

[R1113 (BC, SUB) ]  *  [AAR]  -  * 

[Rll PAL { BC, SUB) ]  *  [DDELDV]  +  [R11DPL] ;  ! 
CALL  ROWMERGE  ( [DUAV] , [DURV] , [DULV] , [PARLS (BC) ] ) ;  ! 
ELSE 

NOTE  THAT  SAERO  W/O  SUPPORT  IS  NOT  SUPPORTED 
ENDIF; 

RECOVER  SENSITIVITIES  TO  THE  F  SET 


$1 
$  I 
$ ! 
j* 

$! 
$! 
$  1 


CALL  NULLMAT  {  [UAFTMP]  )  ;  5 

IF  NGDR  <>  0  THEN  1 

[UAFTMP]  :»  [GASUBO(BC,SUB) ]  *  [DUAV];  i 

ELSE  ! 

IF  NOMIT  <>  0  THEN  '• 

IF  NRSET  <>  0  THEN  1 

[TMP1]  :*  [DPOV]  +  [POARO(BC, SUB) ]* [DDELDV]  ;  i 
ELSE  ! 

[TMP1]  [DPOV];  ' 

ENDIF;  ! 

CALL  GFBS  (  [KOOL (BC, SUB) ] ,  [KOOU (BC, SUB)  ] ,  ! 

[TMP1],  [UOO] ) ;  5 

[UO]  [GASUBO (BC, SUB) ]  *  [DUAV]  +  [UOO];  ! 

CALL  ROWMERGE  <  [UAFTMP],  [UO] ,  [DUAV],  ! 

[PFOAS (BC) ]  );  l 

ELSE  • 

[UAFTMP]  :=  [DUAV];  '• 

ENDIF;  .  ! 

ENDIF;  1 

CALL  AROSNSMR  (  BC,  SUB,  NDV,  [PGAA],  [PGAU],  [DUFV],! 

[UAFTMP]  ) ;  i 

$! 
$1 
$! 
$! 


ENDIF;  $  END  IF  ON  ACTUAG 
ENDDO;  $  END  DO  ON  SUBSCRIPT  LOOP 

IF  ACTUAGG  THEN 

REDUCE  THE  LEFT  HAND  SIDE  MATRIX 

CALL  NULLMAT  {  [DFDUN]  ) ; 

IF  NMPC  <>  0  THEN 

CALL  GREDUCE  (  ,  [DFDU] ,  [PGMNS(BC)],  [TMN (BC) ] , , 
[DFDUN] ) ; 

ELSE 

[DFDUN]  :«  [DFDU] ; 

ENDIF; 

CALL  NULLMAT  {  [DFDUF]  ) ; 

IF  NSPC  <>  0  THEN 

CALL  ROWPART  (  [DFDUN],  ,  [DFDUF] ,  [PNSFS (BC) ]  ); 
ELSE 

[DFDUF]  [DFDUN); 

ENDIF; 

TAKE  MERGED  SENSITIVITIES  OF  DISPLACEMENTS  AND 
COMPUTE  THE  AMAT  MATRIX  TERMS  FOR  THE  SAERO 
CONSTRAINTS 

CALL  MKAMAT  ([AMAT],  [DFDUF],  [DUFV],  PCAA,  [PGAU]  ), 

ENDIF;  $  END  IF  ON  ANY  ACTIVE  DISPLACEMENTS 
NDIF;  $  END  IF  ON  ACTIVE  AEROELASTIC  CONSTRAINTS 

VALUATE  PANEL  BUCKLING  CONSTRAINT  SENSITIVITIES 


$! 

$! 

$! 


91 


91 
9'. 
$ ! 
5! 
91 

i 

9'. 
91 
91 
9 ! 
$1 
$  I 


74 


1928 

7! 

IF  ACTPNL  THEN 

1 

1929 

8! 

CALL  PBKLSENS  (  BC,  NITER,  NDV,  GLBDES,  LOCLVAR,  [PTRANS]  , 

j 

1930 

B! 

PDLIST  ) ; 

1 

1931 

8! 

ENDIF; 

i 

1932 

7  1 

IF  ACT BAR  THEN 

i 

1933 

8! 

CALL  EBKLSENS  {  BC,  NITER,  NDV,  GLBDES,  LOCLVAR,  [PTRANS] ) 

;  i 

1934 

8! 

ENDIF; 

j 

1935 

71 

ENDIF;  $  END  IF  ON  ACTIVE  BOUNDARY  CONDITION 

$i 

1936 

6! 

ENDDO;  $  END  DO  ON  ACTIVE  BOUNDARY  CONDITIONS 

$i 

1937 

51$ 

$! 

1938 

51 

CALL  OFPGRAD  (  NITER,  NUMOPTBC,  [AMAT] ,  GLBDES,  CONST,  GRADIENT  ); 

1 

1939 

51$ 

$1 

1940 

5! 

IF  NITER  >*  OCS  AND  NITER  <-  OCE  THEN 

1 

1941 

6! 

PRI NT ( "LOG- { *  VANGO  MODULE ' ) " ) ; 

j 

1942 

6! 

CALL  VANGO  {  NITER,  NDV,  APPCNVRG,  MOVLIM,  CNVRGLIM, 

j 

1943 

6! 

CTL,  CTLMIN,  NUMOPTBC,  GLBDES,  CONST,  [AMAT], 

• 

1944 

61 

DESHIST  ) ; 

i 

1945 . 

61 

ELSE 

j 

1946 

61 

IF  NITER  >-  MPS  AND  NITER  <“  MPE  THEN 

i 

1947 

71 

PRINT ( "LOG- ('  DESIGN  MODULE')"); 

i 

1948 

71 

CALL  DESIGN (  NITER,  NDV,  APPCNVRG,  MOVLIM,  CNVRGLIM, 

i 

1949 

7! 

CTL,  CTLMIN,  NUMOPTBC,  GLBDES,  CONST,  [AMAT], 

i 

1950 

7! 

DESHIST  ) ; 

i 

1951 

71 

ENDIF; 

j 

1952 

61 

ENDIF; 

i 

1953 

51$ 

$1 

1954 

51 

ENDIF;  $  END  IF  ON  FSD  METHOD 

$1 

1955 

4  ! 

ENDIF;  $  END  IF  TEST  AFTER  ACTCON 

$1 

1956 

31 

ENDDO;  $  END  WHILE  LOOP  FOR  GLOBAL  CONVERGENCE 

$1 

1957 

21ENDIF;  $  END  IF  ON  OPTIMIZATION 

$1 

1958 

11$ 

$1 

1959 

U$******************************************************************************$! 

1960 

11$ 

BEGIN  FINAL  ANALYSIS  LOOP 

$1 

1961 

1 1 $**★**********************************************************************♦****$ 1 

1962 

11$ 

$! 

1963 

1 1  IF 

NBNDCOND  >  NUMOPTBC  THEN 

i 

1964 

21$ 

$1 

1965 

21$ 

ASSEMBLE  THE  GLOBAL  MATRICES 

$1 

1966 

21$ 

$1 

1967 

21 

PRINT ("LOG- {•*************  +  ****************')  ")  ; 

j 

1968 

21$ 

$ ! 

1969 

21$ 

ASSEMBLE  THE  GLOBAL  MATRICES 

$1 

1970 

21$ 

BEGIN  BOUNDARY  CONDITION  LOOP 

$1 

1971 

21$ 

$1 

1972 

2! 

PRINT ("LOG- ('BEGIN  FINAL  ANALYSIS ' ) ") ; 

i 

1973 

21 

CALL  ANAL IN IT; 

I 

1974 

21 

CALL  EMA2  (  ,  NDV,  GSIZEB,  GLBDES,  GMKCT,  DKVI,  [K1GG] , 

1 

1975 

21 

GMMCT,  DMVI ,  [M1GG]  ); 

1 

1976 

21 

FOR  BC  -  NUMOPTBC  +  1  TO  NBNDCOND  DO 

j 

1977 

31 

PRINT { "LOG- ( '  BOUNDARY  CONDITION  ',I3)",BC); 

j 

1978 

31$ 

$ ! 

1979 

31$ 

ESTABLISH  THE  BASE  USET  AND  PARTITIONING  DATA  FOR  THE  BC 

$  ! 

1980 

31$ 

$1 

1981 

31 

CALL  MKUSET(  BC,  GSIZEB,  [YS (BC) ] ,  (TMN(BC)],  [PGMN ( BC) ] ,  (PNSF(BC)], 

i 

1982 

31 

[ PFOA (BC) ] ,  (PARL(BC)],  USET(BC)  ); 

i 

1983 

31$ 

$1 

1984 

31$ 

MAKE  B.C. -DEPENDENT  BGPDT  FROM  BASE,  ADDING  THE  EXTRA  POINTS  FOR 

$1 

1985 

31$ 

THIS  B.C. 

$1 

1986 

31$ 

$1 

1987 

31 

CALL  BCBGPDT (  BC  ,  GSIZEB  ,  BGPDT (BC)  ,  ESIZE(BC)  ); 

i 

1988 

3! 

GSIZE  GSIZEB; 

j 

1989 

3! 

PSIZE(BC)  ESIZE(BC)  +  GSIZE; 

i 

1990 

31$ 

$1 

1991 

31$ 

PROCESS  MATRICES,  TRANSFER  FUNCTIONS,  AND  INITIAL  CONDITIONS  FOR 

$1 

1992 

31$ 

THIS  B.C. 

$1 

1993 

31$ 

$1 

1994 

31 

CALL  BCBULK (  BC  ,  PSIZE(BC)  ,  BGPDT (BC)  ,  USET(BC)  ); 

l 

1995 

31$ 

$1 

1996 

3! 

CALL  BOUND  (  BC,  GSIZE,  ESIZE(BC),  USET(BC),  BLOAD,  BMASS,  DMODES, 

1997 

3! 

BMODES,  BSAERO,  BFLUTR,  BDYN,  BDRSP,  BDTR,  BMTR,  BDFR, 

1998 

31 

BMFR,  BGUST,  BBLAST,  NMPC,  NSPC,  NOMIT,  NRSET,  NGDR  ) ; 

1 

1999 

31$ 

$1 

2000 

31$ 

DETERMINE  IF  ANY  M2GG/K2 GG  INPUT  DATA  ARE  TO  BE  ADDED 

$1 

2001 

31$ 

$1 

2002 

31 

CALL  NULLMAT  (  [KGG] ,  [MGG]  ); 

j 

2003 

31 

CALL  MK2GG  (  BC,  GSIZEB,  [M2GG] ,  M2GGFLAG,  [K2GG] ,  K2GGFLAG  ); 

1 

2004 

31 

IF  M2GGFLAG  THEN 

1 

2005 

41 

[MGG]  [M1GG]  +  [M2GG] ; 

2006 

41 

ELSE 

2007 

4! 

[MGG]  :«  [M1GG] ; 

2008 

41 

ENDIF; 

75 


2009 

2010 
2011 
2012 

2013 

2014 

2015 

2016 

2017 

2018 

2019 

2020 
2021 
2022 

2023 

2024 

2025 
2026. 

2027 

2028 

2029 

2030 

2031 

2032 

2033 

2034 

2035 

2036 

2037 

2038 

2039 

2040 

2041 

2042 

2043 

2044 

2045 

2046 

2047 

2048 

2049 

2050 

2051 

2052 

2053 

2054 

2055 

2056 

2057 

2058 

2059 

2060 
2061 
2062 

2063 

2064 

2065 

2066 

2067 

2068 

2069 

2070 

2071 

2072 

2073 

2074 

2075 

2076 

2077 

2078 

2079 

2080 
2081 
2082 

2083 

2084 

2085 

2086 

2087 

2088 
2089 


3! 

4! 

4! 

4! 

4  1 

31$ 

3 !  $ 

31$ 

31 

31$ 

31 

4! 

31$ 

31$ 

31$ 


IF  K2GGFLAG  THEN 

[KGG]  [K1GG]  +  [K2GG] ; 

ELSE 

[KGG]  [K1GG] ; 

ENDIF; 

CALL  THE  GRID  POINT  WEIGHT  GENERATOR  FOR  THIS  BOUNDARY  CONDITON 

CALL  GPWG  (  ,  BC/  GPWGGRID,  [MGG] ,  OGPWG  J? 

IF  BLOAD  <>  0  CALL  GTLOAD  (  /  BC,  GSIZE,  BGPDT(BC),  GLBDES, 

SMPLOD,  [DPTHVI],  [DPGRVI] ,  [PG] ,  OGRIDLOD) ; 


PARTITION- RE DUCT ION  OF  GLOBAL  MATRICES 


3IL****************************  TAKEN  OUT  FOR  ZAERO  ****************************$ 
3»$  IF  NBNDCOND  >  1  CALL  NULLMAT  (  [KNN],  [PN]  ,  [MNN]  ,  [GTKN]  ,  [GSTKN]  ,  $ 
3i$  [UGTKN]  ) 

3  j  $★**** 


3! 

3! 

41$ 

41$ 

41$ 

4! 

4! 

41 


IF  NBNDCOND  >  1  CALL  NULLMAT 

IF  NMPC  <>  0  THEN 

PERFORM  MPC  REDUCTION 


PRI NT ( "LOG® ( •  MPC  REDUCTION  * ) " )  i 

CALL  GREDUCE  (  [KGG],  [PG],  [ PGMN ( BC) ] ,  [TMN (BCJ ] ,  [KNN],  [PN]  ); 

4  t  IF  BMASS  <>  0  CALL  GREDUCE  ([MGG],,  [PGMN (BC)],  [TMN (BC) ] ,  [MNN] } ; 

4  i$*****************************  TAKEN  OUT  FOR  ZAERO  ***********#***********♦*♦**$!  - 

4!$  IF  BSAERO  O  0  THEN  fj 

413  CALL  GREDUCE  (,  [GTKG] ,  [P04N (BC) ] , [TMN (BC) ] , ,  [GTKN]);  $■ 

4»$  CALL  GREDUCE  (,  [GSTKG],  [PGMN (BC) ], [TMN  (BC) ], ,  [GSTKN]);  $! 

4 !  3  ENDIF  *  ^  * 

4 1 $************* i****************************************************************$ ! 

IF  BFLUTR  O  0  OR  BGUST  O  0  OR  B BLAST  O  0  OR  BSAERO  O  0  ! 

CALL  GREDUCE  {,  [UGTKG] ,  [ PGMN (BC) ),  [TMN (BC) ] ,  ,  [UGTKN]  );  1 

ELSE  $ } 

NO  MPC  REDUCTION 

[KNN]  :=  [KGG];  ; 

IF  BLOAD  <>  0  [PN]  :®  [PG] ;  ; 

IF  BMASS  <>  0  [MNN]  [MGG]? 

,***************★********  TAKEN  OUT  FOR  ZAERO  ****************************$! 

IF  BSAERO  O  0  THEN  J* 

[GTKN]  ;*=  [GTKG]; 

[GSTKN]  :=  [GSTKG]; 

ENDIF ;  5 ' 


4! 

5! 

4! 

41$ 

41$ 

41$ 

41 

4! 

41 

4! 

4 !  $ 
4 !  $ 
4 !  $ 
4 !  $ 


4 1  £  ENDIF #  ^ 

4;$*************i****************************************************************$ 

IF  BFLUTR  O  0  OR  BGUST  <>  0  OR  B BLAST  O  0  OR  BSAERO  O  0 
[UGTKN]  :«  [UGTKG]; 

ENDIF; 


4! 

5! 

4! 

31$ 

31$ 

31$ 

31 

31 

31 

31 

31 

31$ 


PERFORM  AUTOSPC  CALCULATIONS  ON  THE  KNN  MATRIX 

PRINT ( "LOG* ( '  AUTOSPC  COMPUTATIONS ' )  ; 

CALL  GPS P  (  ,  BC,  NGDR,  [KNN],  BGPDT(BC),  [YS(BC)],  USET(BC), 
GPST(BC)  ); 

CALL  MKPVECT  (  USET(BC),  [PGMN (BC) ] ,  [PNSF(BC)],  [PFOA(BC)], 
CALL  BOUNDUPD  (  BC,  GSIZE,  ESIZE(BC),  USET(BC),  NSPC,  NOMIT, 


[PARL(BC) ] 
NRSET  ) ; 


$! 


3!$*****************************  TAKEN  OUT  FOR  ZAERO  ****************************$!  * 

T  _ _ _  -  ,  rirfoi  rnn  rvWM  ffiTTTPl  .  rGSTKFl  .  $ ! 


3!  $ 

3!  $ 

3! 

3! 

3! 

41$ 

41$ 

41$ 

4! 

41 

4! 

4! 


IF  NBNDCOND  >  1  CALL  NULLMAT  {  [KFF] ,  [PF] ,  [MFF] ,  [GTKF] ,  [GSTKF] 

[UGTKF]  )  , 


$  [UGTKF]  )  ;  $ ! 

$***************************************************************A**************$! 
IF  NBNDCOND  >  1  CALL  NULLMAT  (  [KFF] ,  [PF] ,  [MFF] ,  [UGTKF]  ) ;  ! 


NSPC  <>  0  THEN 

$ 

PERFORM  SPC  REDUCTION 

$ 

$ 

PRINT ("LOG® ( * 

CALL  NREDUCE  (  [KNN], 
[KSS] , 

SPC  REDUCTION1) w) ? 

[PN],  [PNSF (BC) ] ,  [YS (BC) ] ,  [KFF],  [KFSJ, 
[PF],  [PS]  ); 

41  IF  BMASS  <>  0  CALL  NREDUCE  (  [MNN],  ,  [PNSF(BC)],  ,  [MFF])?  1 

4 i §*************★***************  TAKEN  OUT  FOR  ZAERO  ****************************$!  tr 


4 !  $ 
4 !  $ 
4!  $ 
4 !  $ 


IF  BSAERO  O  0  THEN 

CALL  NREDUCE  (  ,  [GTKN],  [PNSF (BC) ] ,  ,  ,  ,  ,  [GTKF]  ) 
CALL  NREDUCE  (  ,  [GSTKN],  [PNSF(BC)],  ,  ,  ,  ,  [GSTKF] 
ENDIF ; 


) ; 


$! 

$! 

$! 

$! 


4 !  $  ENDIF ;  l  * 
4 1  a******************************************************************************* ! 
41  IF  BFLUTR  O  0  OR  BGUST  O  0  OR  B BLAST  O  0  OR  BSAERO  O  0  ! 
51  CALL  NREDUCE  (,  [UGTKN],  [ PNSF (BC) ] , , , , ,  [UGTKF]); 


76 


2090 

2091 

2092 

2093 

2094 

2095 

2096 

2097 

2098 

2099 

2100 
2101 
2102 

2103 

2104 


4! 

41$ 

41$ 

41$ 

4 


ELSE 


NO  SPC  REDUCTION 


[KFF]  :*  [KNN]; 

4!  IF  BLOAD  <>  0  [PF]  :«  [PN] ; 

41  IF  BMASS  <>  0  [MFF]  : -  [MNN] ; 

4 !$**************★**************  TAKEN  OUT  FOR  ZAERO  ****************************$! 

IF  BSA2R0  O  0  THEN  $ ! 

[GTKF]  :«  [GTKN] ;  $! 

[GSTKF]  :»  [GSTKN] ; 

ENDIF; 


41  $ 

4!$ 

4 !  $ 

4 !  $ 

41 

4! 

5! 


IF  BFLUTR  O  0  OR  BGUST  O 
[UGTKF]  :»  [UGTKN] ; 


0  OR  B BLAST  O  0  OR  BSAERO  O  0 


2105 

4! 

2106 

31$ 

2107 

31 

2108 

31$ 

2109 

31 

2110 

41$ 

2111 

41$ 

2112 

41$ 

2113 

41$ 

2114 

41$ 

2115 

4  1 

2116 

41$ 

2117 

41$ 

2118 

41$ 

2119 

4  1 

2120 

4! 

2121 

41 

2122 

4! 

2123 

41 

2124 

4! 

2125 

41$ 

2126 

41$ 

2127 

41$ 

2128 

41$ 

2129 

41$ 

2130 

41 

2131 

51 

2132 

5! 

2133 

51 

2134 

51 

2135 

41 

2136 

4! 

2137 

41 

2138 

4! 

2139 

41 

2140 

4! 

2141 

4! 

2142 

4! 

2143 

4  1 

2144 

31$ 

2145 

3! 

2146 

41$ 

2147 

41$ 

2148 

4  1$ 

2149 

41 

2150 

51$ 

2151 

51$ 

2152 

51$ 

2153 

5! 

2154 

51$ 

2155 

51 

2156 

51 

2157 

5! 

2158 

51 

2159 

6! 

2160 

6! 

2161 

6! 

2162 

51 

2163 

51 

2164 

61$ 

2165 

61$ 

2166 

61$ 

2167 

61 

2168 

61$ 

2169 

61 

2170 

6! 

ENDIF; 

$ 

IF  NBNDCOND  >  1  CALL  NULLMAT  ( [KAA] ,  CPA],  [MAA] ,  [KAAA]  ,  [PAA],  [UGTKA] ) ; 

$ 


IF  NGDR  <>  0  THEN 

PERFORM  THE  GENERAL  DYNAMIC  REDUCTION  WHICH  IS  DISCIPLINE 

INDEPENDENT.  THE  RESULTING  [GSUBO]  MATRIX  WILL  BE  USED  BY 

ALL  DISCIPLINES 

PRINT  ("LOG-  (*  DYNAMIC  REDUCTION  ’)**); 

OBTAIN  THE  OMITTED  DOF  PARTITION  OF  KFF  AND  MFF 

CALL  PARTN  (  [KFF],  [KOOJ,  ,  [KOA] ,  ,  [PFOA(BC)]  )i 

CALL  PARTN  (  [MFF],  [MOO],  ,  ,  ,  [PFOA{BC) )  }; 

ASI2E  GSIZE  -  NMPC  -  NSPC  -  NOMIT; 

LSIZE  ASIZE  -  NRSET; 

CALL  GDR1  (  [KOO],  [MOO],  [KSOO],  [GGO] ,  LKSET,  LJSET,  NEIV, 

FMAX,  BC,  BGPDT(BC),  USET(BC),  NOMIT,  LSIZE  ); 

LKSET  MEANING 

<>  0  APPROX.  MODE  SHAPES  SELECTED 

-  0  NO  APPROX.  MODE  SHAPES  IN  GDR 

IF  LKSET  <>  0  THEN 

CALL  SDCOMP  (  [KSOO],  [LSOO] ,  USET(BC),  SINGOSET  ); 

CALL  GDR2  (  [LSOO],  [MOO],  [PHIOK],  LKSET,  LJSET, 

NEIV,  FMAX,  BC-  )  ; 

ENDIF; 

CALL  GDR3  {  [KOO],  [KOA],  [MGG] ,  [PHIOK],  [TMN(BC) ] ,  [GGO], 

[PGMN (BC) ] ,  [PNSF{BC)],  [PFOA(BC)],  [GSUBO(BC)], 
BGPDT(BC),  USET(BC), 

LKSET,  LJSET,  ASIZE,  GNORM,  BC  ) ; 

CALL  GDR4  (  BC,  GSIZE,  PSIZE(BC),  LKSET,  LJSET,  NUMOPTBC,  NBNDCOND, 
[ PGMN (BC) ] ,  [TMN { BC) ] ,  (PNSF(BC)],  [PFOA(BC)], 

[ PARL  (BC) ] ,  [ PGDRG(BC) ] ,  [PAJK] ,  [PFJK] ,  BGPDT(BC), 
USET(BC)  ) ; 

ENDIF; 

IF  BLOAD  <>  0  OR  BMODES  <>  0  OR  BFLUTR  <>  0  OR  BDYN  <>  0  THEN 

REDUCE  THE  MATRICES  WITHOUT  AEROELASTIC  CORRECTIONS 


$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 


$ 

$ 

$ 

$ 

$ 


$ 

$ 

$ 

$ 


IF  NGDR  <>  0  THEN  ! 

$  ! 

PERFORM  THE  GENERAL  DYNAMIC  REDUCTION  $ 

$■ 

PRINT ( "LOG- (*  SYMMETRIC  DYNAMIC  REDUCTION '} ") ; 

$ 

[MAA]  TRANS  (  [GSUBO(BC)]  )  *  [  [MFF]  *  [GSUBO(BC)]  ]; 

[KAA]  TRANS  (  [GSUBO(BC)]  )  *  [  [KFF]  *  [GSUBO(BC)]  ]; 

IF  BLOAD  <>  0  [PA]  :«  TRANS  (  [GSUBO(BC)]  )  *  [PF]  ; 

IF  BFLUTR  <>  0  OR  BGUST  <>  0  OR  BBLAST  <>  0  THEN 
[TMP1 ]  TRANS  (  [UGTKF]  )  *  [GSUBO(BC]]; 

CALL  TRNS POSE  (  [TMP1],  [UGTKA]  ); 

ENDIF; 

ELSE 

IF  NOMIT  <>  0  THEN 

$ 

PERFORM  THE  STATIC  REDUCTION  $ 

$ 

PRINT ( "LOG® { '  STATIC  CONDENSATION*) ") ; 

$ 

CALL  FREDUCE  (  [KFF],  [PF],  [PFOA(BC)],  ,  [KOOINV (BC) ] ,  ,  , 

[GSUBO (BC)],  [KAA],  [PA],  [PO],  USET(BC)  ); 
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2171 

6 !  $ 

2172 

6! 

2173 

7 !  $ 

2174 

7 !  $ 

2175 

7 !  $ 

2176 

7! 

2177 

7! 

2178 

7! 

2179 

7! 

2180 

7! 

2181 

7! 

2182 

6! 

2183 

7! 

2184 

7! 

2185 

7! 

2186 

7! 

2187 

7! 

2188 

6! 

2189 

6 !  $ 

2190 

6 !  $ 

2191 

6 !  $ 

2192 

6! 

2193 

6! 

2194 

6! 

2195 

6! 

2196 

6! 

2197 

5! 

2198 

4 !  $ 

2199 

4! 

2200 

5 !  $ 

2201 

5!  $ 

2202 

5 !  $ 

2203 

5! 

2204 

5! 

2205 

5! 

2206 

5! 

2207 

5! 

2208 

5! 

2209 

5!? 

2210 

5 !  $ 

2211 

5!  $ 

2212 

5! 

2213 

5! 

2214 

5! 

2215 

5! 

2216 

5! 

2217 

5!  $ 

2218 

5! 

2219 

6 !  $ 

2220 

61$ 

2221 

6 !  $ 

2222 

61 

2223 

61 

2224 

61 

2225 

61 

2226 

61 

2227 

61 

2228 

61 

2229 

6! 

2230 

6! 

2231 

6! 

2232 

6! 

2233 

5! 

2234 

6! 

2235 

6! 

2236 

6! 

2237 

6! 

2238 

6! 

2239 

5! 

2240 

5!  $ 

2241 

5 !  $ 

2242 

5 !  $ 

2243 

5! 

2244 

6! 

2245 

6! 

2246 

6! 

2247 

6! 

2248 

5! 

2249 

6! 

2250 

6! 

2251 

6! 

IF  BMASS  <>  0  THEN 

PERFORM  GUYAN  REDUCTION  OF  THE  MASS  MATRIX 

CALL  PARTN  {  [MFF] ,  [MOO] ,  ,  [MOA] ,  [MAABAR] ,  [PFOA(BC)]  ); 
[MAA]  :*  [MAABAR]  +  TRANS ([MOA])  *  [GSUBO(BC)]  + 

TRANS { [GSUBO(BC) ])  *  [MOA]  + 

TRANS ( [GSUBO(BC) ])  *  [  [MOO]  *  [GSUBO(BC)]  J; 

IF  NRSET  <>  0  [IFM(BC) ]  :=  [MOO]  *  [GSUBO(BC) ]  +  [MOA]; 
ENDIF; 

IF  BFLUTR  <>  0  OR  BGUST  <>  0  OR  B BLAST  <>  0  THEN 

CALL  ROWPART  (  [UGTKF] ,  [UGTKO] ,  [UGTKAB] ,  [PFOA(BC) ]  ); 
[TMP1]  TRANS (  [UGTKO]  )  *  [GSUBO(BC)]? 

CALL  TRNSPOSE  (  [TMP1] ,  [TMP2]  ); 

[UGTKA]  [UGTKAB]  +  [TMP2] ; 

ENDIF; 

ELSE 

NO  F-SET  REDUCTION 

[KAA]  ;=  [KFF] ; 

IF  BLOAD  <>  0  [PA]  :=  [PF] ; 

IF  BFLUTR  <>  0  OR  BGUST  <>  0  OR  B BLAST  <>  0  [UGTKA] :« [UGTKF] ; 
IF  BMASS  <>  0  [MAA]  :»  [MFF]; 

ENDIF; 

ENDIF; 


$1 

i 

$! 

?! 

?! 


$  ! 
?! 
?! 


?! 


IF  NRSET  <>  0  THEN 

PERFORM  THE  SUPPORT  SET  REDUCTION 

PRINT ( "LOG* ( *  SUPPORT  REDUCTION*)"); 

CALL  PARTN  {  [KAA],  [KRR] ,  [KLR] ,  ,  [KLL] ,  [PARL(BC)]  ); 
CALL  SDCOMP  (  [KLL],  [KLLINV (BC) ] ,  USET(BC),  SINGLSET  ); 
CALL  FBS  (  [ KLLINV (BC) ],  [KLR],  [D(BC)],  -1  )? 

CALL  RBCHECK  (  BC,  USET(BC),  BGPDT(BC),  [D (BC) ] ,  [KLL], 
[KRR],  [KLR]  } ; 

CALCULATE  THE  REDUCED  MASS  MATRIX 

CALL  PARTN  ([MAA],  [MRRBAR] ,  [MLR],  ,  [KLL] ,  [PARL(BC)]); 
[IFR(BC) ]  :*  [MLL]  *  [D(BCJ]  +  [MLR]; 

[MRR (BC)  ]  :*  [MRRBAR]  +  TRANS  (.  [MLR]  )  *  [D(BCJ]  + 

TRANS  (  [D (BC) ]  )  *  (IFR(BC)]; 
[R22]  :*  TRANS  (  [D(BC) ]  )  *  [MLR]  +  [MRRBAR); 

IF  BLOAD  <>  0  THEN 

PROCESS  STATICS  WITH  INERTIA  RELIEF 


?! 

$! 

?! 


?! 

?! 

?! 


$  ! 
i 

?! 

?! 

?! 


PRINT  ("LOG*  { *  »>DI  SC  I  PL  I NE :  STATICS  { INERTIA  RELIEF)  ')")  ; 

CALL  ROWPART  (  [PA],  [PR],  [PLBAR] ,  [PARL (BC) ]  ); 

[LHS(BCJ)  :*  [MRR(BC)  ]  ; 

[RHS ( BC) ]  : -  TRANS ( [D (BC) ] )  *  [PLBAR]  +  [PR] ; 

CALL  INERTIA  (  [LHS(BC)],  [RHS(BC)],  [AR]  ); 

[AL]  :*  [D (BC) ]  *  [AR]; 

CALL  ROWMERGE  (  [AA] ,  [AR] ,  [AL] ,  [PARL (BC) ]  ); 

[RHS (BC) ]  [PLBAR]  -  [IFR(BC)]  *  [AR] ; 

CALL  FBS  (  [KLLINV (BC) ] ,  [RHS(BC)],  [UL]  ); 

CALL  YSMERGE  {  [UA] ,  ,  [UL] ,  [PARL ( BC) ]  ); 

ENDIF; 

IF  BMODES  <>  0  THEN 

PRINT  ("LOG*  { *  »>DISCIPLINE :  NORMAL  MODES')”); 

CALL  REIG  (  ,  BC,  USET(BC),  [KAA],  [MAA],  [MRR(BC) ]  , 

[D (BC) ] ,  LAMBDA,  [PHIA],  [Mil],  HSIZE(BC)  ); 

CALL  OFPMROOT  {  ,  BC,  NUMOPTBC,  LAMBDA  ) ; 

ENDIF; 


NO  SUPPORT  SET  REDUCTION 


?! 

?! 


IF  BLOAD  <>  0  THEN 

PRINT  ("LOG*  ( 1  >»DISCIPLINE :  STATICS*}"); 

CALL  SDCOMP  (  [KAA],  [KLLINV (BC) ] ,  USET(BC),  SINGASET  ); 
CALL  FBS  (  [KLLINV (BC) ] ,  [PA],  [UA]  ); 

ENDIF; 

IF  BMODES  <>  0  THEN 

PRINT  ("LOG*  ( *  >»DISCIPLINE:  NORMAL  MODES  ’)")  ; 

CALL  REIG  (  ,  BC,  USET(BC),  [KAA],  [MAA],  ,  ,  LAMBDA, 
[PHIA],  [Mil],  HSIZE(BC)  ); 
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22  52 

2253 

2254 

2255 

2256 

2257 

2258 

2259 

2260 
2261 
2262 

2263 

2264 

2265 

2266 

2267 

2268 
2269-' 

2270 

2271 

2272 

2273 

2274 

2275 

2276 

2277 

2278 

2279 

2280 
2281 
2282 

2283 

2284 

2285 

2286 

2287 

2288 

2289 

2290 

2291 

2292 

2293 

2294 
22  95 

2296 

2297 

2298 

2299 

2300 

2301 

2302 

2303 

2304 

2305 

2306 

2307 

2308 

2309 

2310 

2311 

2312 

2313 

2314 

2315 

2316 

2317 

2318 

2319 

2320 

2321 

2322 

2323 

2324 

2325 

2326 

2327 

2328 

2329 

2330 

2331 

2332 


6! 

61 

5! 

41 

31$ 

3! 

41$ 

41$ 

41$ 

4! 


(  ,  BC,  NUMOPTBC,  LAMBDA  ) J 


CALL  OFPMROOT 
ENDIF; 

ENDIF; 

ENDIF; 

IF  BSAERO  <>  0  THEN 


PERFORM  STATIC  AEROELASTIC  ANALYSES 


! 

1 

$ ! 
1 

$! 
$  1 
$! 


PRINT  ("LOG-('  SAERO  INITIALIZATION1)  ")  ,’  ' 

4 f $***************************  TAKEN  OUT  FOR  ZAERO  ******************************$! 
4 ! $  CALL  TRNSPOSE  (  [GSTKF] ,  [GSKF]  );  $! 

4  j  $****★****★********************************************************************$  * 


4! 

4! 

4! 

4! 

5! 

5! 

5!  $ 

51$ 

51$ 


CALL  TRNSPOSE  (  [UGTKF] ,  [GSKF]  ) ; 

LOOP  TRUE; 

SUB  :  -  0  ; 

WHILE  LOOP  DO 

SUB  SUB  +  1; 

CALL  SAERO DRV  (BC,  SUB,  LOOP,  MINDEX,  SYM,  MACH,  QDP,  1  ) i 
ADJUST  THE  KFF  MATRIX  AND  DETERMINE  THE  RIGID  AIR  LOADS 


5| $***************************  TAKEN  OUT  FOR  ZAERO  ******************************$!  <r 


5!$ 
5!$ 
5 !  $ 
5!4 
5! 

5! 

5! 

5! 

5!  $ 
51$ 
51$ 
51$ 
51 
61$ 
61$ 
61$ 
61 
6! 

6! 

6! 

6! 

61 

71$ 

71$ 

71$ 

71 

71$ 

7! 

8! 

81$ 

81$ 

81$ 

8! 

8! 

81 

71$ 

7! 

7! 

7! 

71 

71$ 

71 

81$ 

81$ 

81$ 

8! 

8! 

8! 

8! 

8! 

8! 

81 

9! 

8! 

71 

71$ 

71$ 

71$ 


IF  SYM  *=  1  [AICS]  :*  [GSTKF]  *  [TRANS  ( [AICMAT  (MINDEX)  ] )  *  [GSKF]  ]  ; 

IF  SYM  «  **1  [AICS]  [GSTKF]  *  [TRANS  (  [AAICMAT  (MINDEX)  ]  )  *  [GSKF]  ]  ; 

[PAF]  (QDP)  [  [GSTKF]  *  [AIRFRC (MINDEX)  ]  ]; 

****************************************************************** 
IF  SYM  ■  1  [AICS]  [UGTKF]  *  [TRANS  (  [AICMAT  (MINDEX)  ] )  *  [GSKF]  ]  ; 

IF  SYM  -  -1  [AICS]  :»  [UGTKF]  *  [TRANS  (  [AAICMAT  (MINDEX)  ])*  [GSKF]  ]  ; 

[PAF]  (QDP)  [  [UGTKF]  *  [AIRFRC (MINDEX) ]  ]; 

[KAFF]  [KFF]  -  (QDP)  [AICS]; 

REDUCE  THE  MATRICES  WITH  AEROELASTIC  CORRECTIONS 

SAVE  THE  SUBCASE/BC  DEPENDENT  DATA  FOR  SENSITIVITY  ANALYSIS 

IF  NGDR  <>  0  THEN 

PERFORM  THE  GENERAL  DYNAMIC  REDUCTION 


PRINT ("LOG«(» 
[MAAA]  TRANS  ( 

[KAAA]  TRANS  ( 

[PAA]  TRANS  ( 

ELSE 

IF  NOMIT  <>  0  THEN 


SAERO  DYNAMIC  REDUCTION  M")  . 


[GSUBO ( BC) ] 
[GSUBO { BC) ] 
[GSUBO (BC)] 


[  [MFF]  * 
[  [KAFF] 
[PAF]; 


[GSUBO ( BC) ]  ]; 
*  [GSUBO (BC)]  ] 


PERFORM  THE  STATIC  REDUCTION 


PRINT ( "LOG- ( ' 


SAERO  STATIC  CONDENSATION’ ) ") J 


IF  NRSET  <> 
BFLUTR  - 


AND  SUB  - 
AND  BDYN 


1  AND  BLOAD 
-  0  THEN 


0  AND  BMODES  -  0  AND 


FORM  [KAA]  ON  SO  (D)  CAN  BE  FORMED 


CALL  FREDUCE 


{[KFF],  ,  [PFOA(BC)], 
[GSUBO(BC) ] ,  [KAA], 


[KOOINV(BC) ] , 
,  USET(BC)  ); 


ENDIF; 


CALL  FREDUCE  (  [KAFF],  [PAF],  [PFOA(BC)),  BSAERO, 

[KOOL (BC, SUB) ] ,  [KOOU (BC,SUB) ], 

[KAO ( BC, SUB) ] ,  [GASUBO(BC,SUB) ] ,  [KAAA], 
[PAA],  [POARO (BC, SUB) ] ,  USET(BC)); 

IF  BMASS  <>  0  THEN 

PERFORM  GUYAN  REDUCTION  OF  THE  MASS  MATRIX 


[MOA],  [MAABAR], 


[MAAA] 


[GASUBO ( BC, SUB) ] 
[MOA]  + 

[(MOO)  * 


$! 

$! 

$! 

>1 

! 

! 

! 

I 

$ 

$ 

$ 

$ 

$ 

$ 

$ 


CALL  PARTN  (  [MFF],  [MOO]  , 

[PFOA(BC) ]  )  ; 

[MAABAR]  +  TRANS ([MOA]) 

TRANS ( [GASUBO (BC, SUB) ] ) 

TRANS ([GASUBO (BC,  SUB) ]) 

[GASUBO (BC, SUB)  ]] ; 

IF  NRSET  <>  0 

[I FMA  (BC, SUB) ]  :*  [MOO] * [GASUBO (BC, SUB) ]  +  [MOA] 

ENDIF; 

ELSE 

NO  F-SET  REDUCTION 


$1 


$1 

i 

$1 
$  1 
$1 
1 
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2333 

7  ! 

2334 

8! 

2335 

81$ 

2336 

8 !  $ 

2337 

8!$ 

2338 

81 

2339 

8! 

2340 

7! 

2341 

71 

2342 

71 

2343 

7! 

2344 

61 

2345 

51$ 

2346 

51 

2347 

61$ 

2348 

61$ 

2349 

61$ 

2350.- 

61 

2351 

61$ 

2352 

6! 

2353 

71 

2354 

71$ 

2355 

71$ 

2356 

71$ 

2357 

71$ 

2358 

71 

2359 

71 

2360 

71 

2361 

71 

2362 

71 

2363 

71 

2364 

61$ 

2365 

61$ 

2366 

61$ 

2367 

61 

2368 

6! 

2369 

61 

2370 

6! 

2371 

61 

2372 

61 

2373 

61$ 

2374 

61$ 

2375 

61$ 

2376 

61 

2377 

6! 

2378 

61 

2379 

61 

2380 

61 

2381 

61$ 

2382 

6! 

2383 

61$ 

2384 

6! 

2385 

61 

2386 

6! 

2387 

61 

2388 

6! 

2389 

61 

2390 

61$ 

2391 

61 

2392 

61 

2393 

6! 

2394 

61 

2395 

61 

2396 

61 

2397 

61 

2398 

61 

2399 

61$ 

2400 

61 

2401 

61 

2402 

6! 

2403 

6! 

2404 

6! 

2405 

61 

2406 

6! 

2407 

61 

2408 

6! 

2409 

6! 

2410 

6! 

2411 

61 

2412 

61 

2413 

6! 

IF  NRSET  <>  0  AND  SUB  -  1  AND  BLOAD  -  0  AND 

BMODES  =  0  AND  BFLUTR  “  0  AND  BDYN  =  0  THEN 

FORM  [KAA]  ON  FIRST  PASS  SO  [D]  CAN  BE  FORMED 

[KAA]  [KFF]; 

ENDIF; 

[KAAA]  :*  [KAFF]; 

[MAAA]  :=  [MFF3; 

[PAA]  :=  [PAF] ; 

ENDIF; 

ENDIF; 

IF  NRSET  <>  0  THEN 

PERFORM  THE  SUPPORT  SET  REDUCTION 

PRINT ("LOG* ( *  SAERO  SUPPORT  REDUCTION’ ) ") ; 

IF  SUB  -  1  AND  BLOAD  -  0  AND  BMODES  -  0  AND  BFLUTR  » 
AND  BDYN  «  0  THEN 

[D]  WAS  NOT  COMPUTED  FOR  NON-SAERO  DISCIPLINES  SO 
NEED  TO  COMPUTE  IT  NOW 


$ 

$ 

$ 


$1 

$! 
$i 
$  1 
i 

$! 


$ 

$ 

$ 

$ 


CALL  PARTN  (  [KAA],  [KRR],  [KLR],  ,  [KLL] ,  [PARL { BC) ]  ); 
CALL  SDCOMP  (  [KLL],  [KLLINV (BC) ] ,  USET{BC),  SINGLSET  ); 
CALL  FBS  (  [KLLINV (BC) ],  [KLR],  [D (BC) ] ,  -1  ); 

CALL  RBCHECK  (  BC,  USET(BC),  BGPDT(BC),  [D ( BC) ] ,  [KLL], 
[KRR] ,  [KLR]  ) ; 


ENDIF; 


CALCULATE  THE  REDUCED  MASS  MATRIX 

CALL  PARTN  ([MAAA],  [MRRBAR] ,  [MLR],  ,  [MLL] ,  [PARL (BC) ] )  ; 
[R13 ( BC, SUB) ]  :=  [MLL]  *  [D(BC)]  +  [MLR]? 

[R33]  :«  [MRRBAR]  +  TRANS  (  [MLR]  )  *  CD (BC) ]  + 

TRANS  {  [D (BC) ]  )  *  [R13 (BC, SUB) ] ; 

[R22]  : =  TRANS  (  [D(BC)]  )  *  [MLR]  +  [MRRBAR]; 

CALL  TRNS POSE  {  [R13 ( BC, SUB) ] ,  [R21 (BC, SUB) ]  ); 


PROCESS  STEADY  AEROELASTIC  DISCIPLINE 

PRINT  ( "LOG-  { ’  »>DISCIPLINE:  STEADY  AERO’)  ")  ? 

CALL  PARTN  (  [KAAA],  [KARR],  [R12 (BC,SUB) ] ,  [KARL],  [Rll] , 
[PARL (BC) ]  }  ; 

[R32 { BC, SUB) ]  TRANS ([D(BC)])  *  [R12 (BC,SUB) ]  +  [KARR]; 

[R31 ( BC, SUB) )  : *  TRANS ( [D (BC) ] )  *  [Rll]  +  [KARL]; 

CALL  DECOMP  {  [Rll],  [RL1 1 (BC, SUB) ] ,  [RU11 (BC,SUB) ]  }? 

CALL  ROWPART  (  [PAA],  [PARBAR],  [PAL],  [PARL (BC) ]  )? 

CALL  GFBS  (  [RL11 (BC, SUB) ] ,  [RU11 (BC, SUB) ] ,  [PAL], 

[R11PAL (BC, SUB) ] ,  -1); 

[PRIGID]  [PARBAR]  +  TRANS  (  [D  (BC)  ] )  *  [PAL]; 

[PI]  [R2 1  (BC, SUB) ]  *  [R11PAL (BC, SUB) ] ; 

[P2]  :*=  [PRIGID]  +  [R31 (BC, SUB) ]  *  [R11PAL(BC,SUB)  ] ; 


$ 

§ 

$ 


$ 

$ 

$ 


$ 

$ 


$ 


CALL  GFBS  (  [RL11 (BC, SUB) ] ,  [RU11 (BC, SUB) ] ,  [R12 ( BC, SUB) ] , 

[R1112 (BC, SUB) ] ,  -1); 

CALL  GFBS  (  [RL11 (BC, SUB) ] ,  [RU11 (BC, SUB) ] ,  [R13 (BC, SUB) ] , 

[R1113 (BC,SUB) ] ,  -1); 

[Kll]  :«  [R22]  +  [R21 (BC, SUB) ]  *  [R1112 (BC, SUB) ] ; 

[K12 { BC, SUB) ]  :=  [R21 (BC, SUB) ]  *  [R1113 (BC, SUB) ] ; 

[K21 (BC, SUB) ]  [R32 (BC, SUB) ]  +  [R31 (BC, SUB) ]  *  [R1112 (BC,  SUB) ] 

[K22]  :*=  [R33]  +  [R31  (BC, SUB)  ]  *  [R1113 (BC, SUB) } ; 


CALL  DECOMP  (  [Kll],  [KL11 (BC, SUB) ] ,  [KU11 ( BC,SUB}]  ); 

CALL  GFBS  (  [KL11 (BC, SUB) ] ,  [KU11 (BC, SUB) ] ,  [PI], 

[PAR(BC,SUBJ]  ) ; 

CALL  GFBS  (  [KL11 (BC,  SUB) ] ,  [KU11 (BC, SUB) ] ,  [K12 (BC, SUB) ] , 
[K1112 (BC,  SUB) ] , -1  ); 

[LHSA (BC, SUB) ]  :=  [K22]  +  [K21 (BC,SUB) ]  *  [K1112 (BC,SUB) ] ; 
[RHSA (BC, SUB) ]  :=  [P2]  -  [K21 (BC, SUB) ]  *  [PAR (BC, SUB)  ] ; 

CALL  SAERO  (  ,  BC,  MINDEX,  SUB,  SYM,  QDP,  STABCF, 

BGPDT(BC),  [LHSA(BC, SUB) ] ,  [RHSA (BC, SUB) ] ,  [AAR], 
[DELTA (SUB) ] ,  [PRIGID],  [R33]  ); 

[AAL]  [D (BC) ]  *  [AAR]; 

CALL  ROWMERGE  (  [AAA(SUB) ] ,  [AAR],  [AAL],  [ PARL (BC) ]  ); 

[UAR]  [K1112 (BC, SUB) ]  *  [AAR]  +  ( PAR (BC, SUB) ]  * 

[DELTA (SUB) ] ? 
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[UAL]  [Rll  12  ( BC, SUB)  ]  *  [UAR]  +  [Rll  13  (BC,  SUB)  ]  *  [AAR] 

-  (R11PAL(BC,SUB) ]  *  [DELTA (SUB) ] ; 

CALL  ROWMERGE  (  (UAA(SUB)],  [UAR],  [UAL],  (PARL(BC)]  ); 

IF  NOMIT  <>  0  [PAO (SUB) ]  [POARO(BC,SUB) ]  *  [ DELTA ( SUB) ]  ; 
ELSE 

NO  SUPPORT  SET  REDUCTION 


PROCESS  STEADY  AEROELASTIC  DISCIPLINE 

PRINT  ("LOG3  ( '  >»DISCIPLINE:  STEADY  AERO*)"); 

ENDIF; 

ENDDO; 

ENDIF; 

PERFORM  ANY  DYNAMIC  ANALYSES  —  NOTE  THAT  THESE  ARE  INDEPENDENT 
OF  THE  SUPPORT  SET 

IF  BDYN  <>  0  THEN 

IF  BFLUTR  <>  0  THEN 

PRINT  (  "LOG*  ( *  »>DI$CIPLINE:  FLUTTER* )  ")  ; 

SUB  0; 

LOOP  TRUE; 

WHILE  LOOP  DO 

SUB  :*  SUB  +  1; 

CALL  FLUTDRV  (  BC,  SUB,  LOOP  ); 

CALL  FLUTQHHZ  (  ,  BC,  SUB,  ESIZE (BC),  PSXZE (BC) ,  [AJK] , 

[SKJ]  ,  [UGTKA]  ,  [PHIA] ,  USET(BC)  , 

[TMN  (BC)  ]  ,  [GSUBO  (BC)  ]  ,  NGDR,  AECOMPU,  GEOMUA , 
[PHIKH]  ,  [QHKLFL (BC,SUB) ]  ,  OAGRDDSP  )  ; 

CALL  FLUTDMA  (  ,  BC,  SUB,  ESIZE(BC),  PSIZE(BC),  BGPDT(BC), 

USET(BC),  [MAA],  [KAA] ,  (TMN (BC) ], [GSUBO (BC) ] , 
NGDR,  LAMBDA,  [PHIA],  [MHHFL (BC, SUB) ] , 

[BHHFL (BC,SUB) ] ,  [KHHFL(BC,SUB) ]  ); 

CALL  FLUTTRAZ  (  ,  BC,  SUB,  [QHHLFL  (BC , SUB)  J  ,  LAMBDA,  HSIZE  (BC)  , 
ESIZE  (BC)  ,  [MHHFL (BC, SUB) ] ,  [BHHFL (BC , SUB) ]  , 
[KHHFL  (BC ,  SUB)  ]  ,  CLAMBDA,  ,AEROZ  ); 

ENDDO; 

ENDIF; 

IF  BDRSP  <>  0  THEN 

IF  BMTR  <>  0  OR  BDTR  <>  0  THEN 

PRINT  (  MLOG“  ( *  »>DISCIPLINE:  TRANSIENT  RESPONSE ' ) ") ; 

ENDIF; 

IF  BMFR  <>  0  OR  BDFR  <>  0  THEN 

PRINT  ( "LOG-  ( *  »>DISCIPLINE:  FREQUENCY  RESPONSE ')**)  ; 

ENDIF; 


1 


$1 

$1 

$1 

$1 

$1 

$1 


$ 

$ 

$ 

$ 


!  4- 
! 

! 

!  4- 


!  4- 
! 

!  4- 


1 


SMPLOD,  BGPDT(BC), 


$$$$$$$$$$$$$$$$$$$$$  MODIFIED  FOR  ZAERO  $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$! 
$  CALL  QHHLGEN  (BC,  ESIZE(BC),  [QKKL] ,  [QKJL] ,  [UGTKA] ,  [PHIA],  $! 

$  [PHIKH],  [QKKL],  [QHJL] ) ;  $! 

$$$$$$$$$$$$$$$$$$$$$  MODIFIED  FOR  ZAERO  $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$! 

CALL  QHHLGENZ  (BC,  ESIZE  (BC)  ,  [AJK]  ,  [SKJ]  ,  [QGK]  ,  [UGTKA]  ,  [PHIA]  ,  ! 

[PHIKH] ,  [QKKL] ,  [QHJL] ,  AER02) ;  ! 

CALL  DMA  (  ,  BC,  ESIZE (BC),  PSIZE(BC),  BGPDT(BC),  USET(BC),  [MAA], 
[KAA],  [TMN (BC) ] ,  [GSUBO(BC)],  NGDR, 

LAMBDA,  [PHIA],  [MDD] ,  [BDD] ,  [KDDT] ,  [KDDF] , 

[MHH] ,  [BHH] ,  [KHHT] ,  [KHHF]  ); 

CALL  DYNLOAD  (  ,  BC,  GSIZE,  ESIZE(BC),  PSIZE(BC) 

USET(BC),  [TMN(BC) ] ,  [GSUBO(BC)],  ! 

NGDR,  [PHIA],  [QHJL],  [ PDT] ,  [PDF],  1 

[PTGLOAD] ,  [PTHLOAD] ,  [PFGLOAD] ,  [PFHLOAD]  );  1 

CALL  DYNRSP  (BC,  ESIZE(BC),  [MDD],  [BDD],  [KDDT],  [KDDF],  1 

[MHH],  [BHH],  [KHHT],  [KHHF],  [PDT],  [PDF],  1 

[QHHL] ,  [UTRANA],  [UFREQA] ,  [UTRANI],  [UFREQI ] ,  ! 

[UTRANE],  [UFREQE]  );  ! 

IF  BMTR  <>  0  [UTRANA]  [PHIA]  *  [UTRANI];  ! 

IF  BMFR  <>  0  [UFREQA]  :«  [PHIA]  *  [UFREQI]; 

ENDIF; 

ENDIF; 

IF  BBLAST  <>  0  THEN 

PRINT  ( "LOG*  ( *  »>DISCIPLINE :  BLAST *)**); 

CALL  BLASTFIT  (  BC,  [QJJL] ,  (MATTRJ ,  [MATSS],  BQDP,  [BFRC] , 

[DWNWSH],  HSIZE ( BC)  ,  [ID2],  [MPART] ,  [UGTKA], 

[BLGTJA] ,  [BLSTJA]  ); 

CALL  COLPART  {  [PHIA],  ,  [PHIE],  [MPART]  ); 


CALL  ROWMERGE 
CALL  COLMERGE 


[GENM] 

[GENK] 

[DTSLP] 

[FTF] 


[PHIR],  [ID2] ,  [D (BC)  ] , 
[PHIB],  [PHIR],  [PHIE], 


TRANS (  [PHIB]  )  *  [  [MAA]  * 
TRANS {  [PHIB]  )  *  [  [KAA]  * 
TRANS  (  [BLSTJA]  )  *  [PHIB] 
TRANS  (  [PHIB]  )  *  [BLGTJA] 


(PARL(BC)  ] 
[MPART]  )  ; 
[PHIB]  ] ; 
[PHIB]  ]; 
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2573 

6! 

2574 

61 

2575 

7! 

[GENF]  :=  (BQDP)  [FTF]  *  [BFRC] ; 

[GENFA]  :»  (BQDP)  [FTF]  *  [MATSS]; 

[GENQ]  [GENFA]  *  [DTSLP] ; 

[GENQL]  :«  (BQDP)  [FTF]  *  [MATTR] ; 

CALL  PARTN  (  [GENQ]  ,  [QRR]  ,  ,  [QRE]  *■  [QEE] ,  [MPART]  )  ; 

CALL  PARTN  (  [GENIC],  ,  ,  ,  [KEE],  [MPART]  )? 

[KEQE]  :*  [QEE]  +  [KEE]; 

CALL  DECOMP  {  [KEQE],  [LKQ] ,  [UKQ]  ); 

CALL  ROWPART  {  [GENF],  [GFR],  [GFE],  [MPART]  )? 

CALL  GFBS  {  [LKQ] ,  [UKQ] ,  [GFE] ,  [BTEM]  ) ; 

[DELM]  -[QRE]  *  [BTEM]  +  [GFR]; 

CALL  BLASTRIM  (  BC,  [DELM],  [MRR(BC)],  [URDB] ,  [DELB]  ); 

[ELAS]  [BTEM]  *  [DELB] ; 

[SLPMODJ  :«=  TRANS  {  [BLSTJA]  )  *  [PHIE] ; 

CALL  BLASTDRV  (  BC,  [GENM] ,  [GENK],  [GENFA],  [GENQL],  [DELB], 

[URDB],  [DWNWSH],  [SLPMOD],  [ELAS],  [UBLASTI]  ); 

ENDIF; 

BEGIN  THE  DATA  RECOVERY  OPERATIONS 

IF  NBNDCOND  >  1  CALL  NULLMAT  {  [UF],  [AF] ,  [PHIF]  ); 

IF  NGDR  <>  0  THEN 

DATA  RECOVERY  WITH  GDR 

APPEND  THE  GDR- GENERATED  DOFS  TO  THE  F-SET 

PRINT  ("LOG55  ( 1  DYNAMIC  REDUCTION  RECOVERY’ )  ")  ; 

IF  BLOAD  <>  0  THEN 

[UFGDR]  :=  [GSUBO(BC)]  *  [UA]  ; 

CALL  ROWPART  (  [UA],  [UJK] ,  ,  [PAJK]  ); 

CALL  ROWMERGE  (  [UF] ,  [UJK],  [UFGDR],  [PFJK]  ); 

IF  NRSET  <>  0  THEN 

[AFGDR]  :=  [GSUBO(BC)]  *  [AA] ; 

CALL  ROWPART  (  [AA] ,  [UJK],  ,  [PAJK]  ); 

CALL  ROWMERGE  (  [AF] ,  [UJK],  [AFGDR],  [PFJK]  )? 

ENDIF; 

ENDIF; 

IF  BSAERO  <>  0  THEN 
FOR  S  *  1  TO  SUB  DO 

[UFGDR]  [GSUBO(BC) ]  *  [UAA(S)]; 

CALL  ROWPART  (  [UAA{S)3,  [UJK],  ,  [PAJK]  ); 

CALL  ROWMERGE  {  [UAFTMP] ,  [UJK],  [UFGDR],  [PFJK]  ); 

MERGE  THE  CURRENT  SUBCASE  DEPENDENT  RESULTS  INTO  A  SINGLE 
MATRIX  OF  RESPONSE  QUANTITIES  FOR  FURTHER  RECOVERY 

CALL  SAEROMRG  (  BC,  S,  [UAF] ,  [UAFTMP]  ); 

IF  NRSET  <>  0  THEN 

[AFGDR]  :=  [GSUBO(BC)]  *  [AAA(S) ] ; 

CALL  ROWPART  (  [AAA(S)  ] ,  [UJK],  ,  [PAJK]  ); 

CALL  ROWMERGE  (  [AAFTMP]  ,  [UJK],  [AFGDR],  [PFJK]  ); 

CALL  SAEROMRG  (  BC,  S,  [AAF] ,  [AAFTMP]  )  ; 

ENDIF; 

ENDDO; 

ENDIF; 

IF  BMODES  <>  0  THEN 

[UFGDR]  :*»  [GSUBO(BC)]  *  [PHIA] ; 

CALL  ROWPART  (  [PHIA],  [UJK],  ,  [PAJK]  }; 

CALL  ROWMERGE  (  [PHIF],  [UJK],  [UFGDR],  [PFJK]  ); 

ENDIF; 

IF  BDTR  <>  0  OR  BMTR  <>  0  THEN 

[UFGDR]  :**  [GSUBO(BC) ]  *  [UTRANA]; 

CALL  ROWPART  {  [UTRANA],  [UJK],  ,  [PAJK]  ); 

CALL  ROWMERGE  (  [UTRANFJ ,  [UJK],  [UFGDR],  [PFJK]  ); 

ENDIF; 

IF  BDFR  <>  0  OR  BMFR  <>  0  THEN 

[UFGDR]  [GSUBO(BC)]  *  [UFREQA] ; 

CALL  ROWPART  (  [UFREQA],  [UJK],  ,  [PAJK]  ); 

CALL  ROWMERGE  (  [UFREQF] ,  [UJK],  [UFGDR],  [PFJK]  ); 

ENDIF; 

ELSE 

IF  NOMIT  <>  0  THEN 

DATA  RECOVERY  WITH  STATIC  CONDENSATION 

PRINT ( "LOG- { ’  STATIC  CONDENSATION  RECOVERY') ") ; 

IF  BLOAD  <>  0  THEN 

CALL  RECOVA  {  [UA],  [PO],  [GSUBO(BC)],  NRSET,  [AA], 

[ I FM { BC ) ] ,  ,  [KOOINV(BC) ],,  [PFOA(BC) ] ,  [UF]  ) 
IF  NRSET  <>  0  CALL  RECOVA  (  [AA] ,  ,  [GSUBO (BC) ],,,,,, , 

[PFOA (BC) ] ,  [AF]  ); 


82 


2576 

6! 

ENDIF; 

1 

2577 

5! 

IF  BSAERO  <>  0  THEN 

t 

2578 

6! 

FOR  S  •  1  TO  SUB  DO 

1 

2579 

7! 

CALL  RECOVA  {  [UAA(S)],  [PAO(S)],  [GASUBO (BC, S) J , 

l 

2580 

7! 

NRSET,  [AAA(S)J,  [ IFMA (BC, S) ] ,  BSAERO, 

1 

2581 

71 

[ KOOL (BC, S) ] ,  [KOOU(BC,S) ] , 

i 

2582 

7! 

fPFOA(BC)],  [UAFTMP]  )i 

j 

2583 

71$ 

$  ! 

2584 

7  1  $ 

MERGE  THE  CURRENT  SUBCASE  DEPENDENT  RESULTS  INTO  A  SINGLE 

$1 

2585 

71? 

MATRIX  OF  RESPONSE  QUANTITIES  FOR  FURTHER  RECOVERY 

$1 

2586 

71$ 

$1 

2587 

7! 

CALL  SAEROMRG  (  BC,  S,  [UAF] ,  [UAFTMP]  ) ; 

j 

2588 

71 

IF  NRSET  <>  0  THEN 

i 

2589 

81 

CALL  RECOVA  {  [AAA(S) ],, [GASUBO (BC, S) ],,,,,, , 

1 

2590 

81 

[PFOA(BC) ],  [AAFTMP} ) ; 

i 

2591 

8! 

CALL  SAEROMRG  {  BC,  S,  [AAF] ,  [AAFTMP]  ); 

1 

2592 

81 

ENDIF; 

1 

2593  " 

7! 

ENDDO; 

1 

2594 

61 

ENDIF; 

1 

2595 

5! 

IF  BMODES  <>  0  THEN 

i 

2596 

6! 

[PHIO]  [GSUBO [BC) ]  *  [PHIA] ; 

) 

2597 

61 

CALL  ROWMERGE  {  [PHIF],  [PHIO],  [PHIA],  [PFOA(BC)]  ); 

! 

2598 

6! 

ENDIF; 

! 

2599 

5! 

IF  BDTR  <>  0  OR  BMTR  <>  0  THEN 

! 

2600 

6! 

CALL  RECOVA  (  [UTRANA] ,  ,  [GSUBO(BC) ],,,,,, , 

1 

2601 

6! 

(PFOA(BC)],  [UTRANF]  ); 

j 

2602 

6! 

ENDIF; 

j 

2603 

51 

IF  BDFR  <>  0  OR  BMFR  <>  0  THEN 

1 

2604 

61 

CALL  RECOVA  (  [UFREQA] ,  ,  (GSUBO ( BC) 1 ,,,,,, , 

1 

2605 

6! 

[PFOA(BC)),  [UFREQF]  ); 

j 

2606 

6! 

ENDIF; 

1 

2607 

51 

ELSE 

i 

2608 

51$ 

$1 

2609 

51$ 

DATA  RECOVERY  WITHOUT  F-SET  REDUCTION 

$1 

2610 

51$ 

$1 

2611 

5! 

IF  BLOAD  <>  0  THEN 

1 

2612 

61 

[UF]  [UA]; 

1 

2613 

61 

IF  NRSET  <>  0  [AF]  :«  [AA] ; 

j 

2614 

6! 

ENDIF; 

1 

2615 

5! 

IF  BSAERO  <>  0  THEN 

• 

2616 

6! 

FOR  S  -  1  TO  SUB  DO 

i 

2617 

71$ 

$! 

2618 

71$ 

MERGE  THE  CURRENT  SUBCASE  DEPENDENT  RESULTS  INTO  A  SINGLE 

$  1 

2619 

71$ 

MATRIX  OF  RESPONSE  QUANTITIES  FOR  FURTHER  RECOVERY 

$1 

2620 

7  1  $ 

$1 

2621 

71 

CALL  SAEROMRG  {  BC,  S,  [UAF],  (UAA(S)]  ); 

i 

2622 

7! 

IF  NRSET  <>  0  CALL  SAEROMRG  (  BC,  S,  [AAF],  [AAA(S}j  ); 

i 

2623 

71 

ENDDO; 

1 

2624 

61 

ENDIF; 

i 

2625 

51 

IF  BMODES  <>  0  [PHIF]  [PHIA]; 

i 

2626 

51 

IF  BDTR  <>  0  OR  BMTR  <>  0  [UTRANF]  [UTRANA]; 

i 

2627 

5! 

IF  BDFR  <>  0  OR  BMFR  <>  0  [UFREQF]  [UFREQA]; 

i 

2628 

5! 

ENDIF; 

i 

2629 

41 

ENDIF; 

i 

2630 

31$ 

$1 

2631 

3! 

IF 

NBNDCOND  >  1  CALL  NULLMAT  {  [UN],  [AN],  [PHIN]  ); 

i 

2632 

3! 

IF 

NS PC  <>  0  THEN 

1 

2633 

41$ 

$1 

2634 

41$ 

DATA  RECOVERY  WITH  SPC-REDUCTION 

$! 

2635 

41$ 

$ ! 

2636 

4! 

PRINT ("LOG- ( 1  SPC  RECOVERY* ) ") ; 

i 

2637 

41 

IF  BLOAD  <>  0  THEN 

i 

2638 

51 

CALL  YSMERGE  (  [UN],  [YS(BC)],  [UF],  (PNSF(BC)]  ); 

i 

2639 

5! 

CALL  OFPSPCF  (  0,  BC,  1,  1,  GSIZE,  ESIZE(BC),  NGDR, 

i 

2640 

51 

[KFSJ,  [KSS],  (UF],  [YS (BC) J ,  [PS], 

i 

2641 

51 

[PNSF  (80 ] ,  (PGMN(BC)],  [PFJK],  ,  ,  , 

t 

2642 

51 

BGPDT(BC),  OGRIDLOD  ); 

i 

2643 

51 

IF  NRSET  <>  0  CALL  YSMERGE  (  [AN],  ,  [AF]  ,  [PNSF(BC)]  ); 

i 

2644 

51 

ENDIF; 

j 

2645 

4! 

IF  BSAERO  <>  0  THEN 

j 

2646 

51 

CALL  YSMERGE  (  [UAN] ,  [YS(BC)],  [UAF],  [PNSF(BC)]  ); 

i 

2647 

51 

IF  NRSET  <>  0  CALL  YSMERGE  (  ( AAN] ,  ,  [AAF],  [PNSF(BC)]  ); 

l 

2648 

51 

ENDIF; 

1 

2649 

4! 

IF  BMODES  <>  0  THEN 

1 

2650 

51 

CALL  YSMERGE  (  [PHIN],  [YS (BC) 3 ,  [PHIF], 

j 

2651 

5! 

[ PNSF (BC)  ]  ); 

1 

2652 

51 

IF  DMODES  <>  0  CALL  OFPSPCF  (  0,  BC,  2,  1,  GSIZE, 

2653 

61 

ESIZE(BC),  NGDR, 

2654 

61 

[KFS] ,  ,  [PHIF],  ,  , 

2655 

61 

[PNSF (BC) ] ,  [PGMN (BC) ] ,  [PFJK], 

2656 

61 

,  ,  ,  BGPDT(BC),  OGRIDLOD  }; 

1 

83 


2657 

5! 

ENDIF; 

2658 

41 

IF  BDTR  <>  0  OR  BMTR  <>  0 

2659 

5! 

CALL  YSMERGE  (  [UTRANN],  [YS(BC)],  [UTRANFJ , 

2660 

5! 

[PNSF (BC) ] #  BDTR  ); 

2661 

4! 

IF  BDFR  <>  0  OR  BMFR  <>  0 

2662 

5! 

CALL  YSMERGE  (  [UFREQN],  [YS(BC)],  [UFREQF] , 

2663 

5! 

[PNSF(BC)],  BDFR  ) ; 

2664 

41 

IF  BFLUTR  <>  0 

2665 

51 

CALL  OFPSPCF  {  0,  BC,  4,  2,  GSIZE,  ESIZE(BC),  NGDR,  [KFS] ,  , 

2666 

51 

[ PHIF] ,  ,  ,  [PNSF(BC)],  [PGMN (BC) ] ,  [PFJKJ, 

2667 

51 

,  ,  ,  BGPDT(BC),  OGRIDLOD  ); 

2668 

4! 

IF  BBLAST  <>  0  THEN 

2669 

51 

[UBLASTF]  [PHIF] * [UBLASTI] ; 

2670 

51 

CALL  OFPSPCF  (  0,  BC,  8,  1,  GSIZE,  ESIZE(BC),  NGDR, 

2671 

51 

[KFS] ,  ,  [UBLASTF],  ,  ,  [PNSF(BC)],  [ PGMN (BC) ] , 

2672 

51 

[PFJK] ,  ,  ,  ,  BGPDT(BC),  OGRIDLOD  ); 

2673 

51 

ENDIF; 

2674  .•* 

41 

ELSE 

2675 

41$ 

$1 

2676 

41$ 

DATA  RECOVERY  WITHOUT  SPC-REDUCTION 

$  1 

2677 

41$ 

$1 

2678 

41 

IF  BLOAD  <>  0  THEN 

2679 

51 

[UN]  [UF]; 

2680 

5! 

IF  NRSET  <>  0  [AN]  :  =  [AF]  ; 

2681 

5! 

ENDIF; 

2682 

41 

IF  BSAERO  <>  0  THEN 

2683 

51 

[UAN]  [UAF] ; 

2684 

5! 

IF  NRSET  <>  0  [AAN]  :=  [AAF] ; 

2685 

51 

ENDIF; 

2686 

41 

IF  BMODES  <>  0  [PHIN]  :=  [PHIF] ; 

2687 

4! 

IF  BDTR  <>  0  OR  BMTR  <>  0  [UTRANN]  [UTRANA]  ; 

2688 

4! 

IF  BDFR  <>  0  OR  BMFR  <>  0  [UFREQN]  [UFREQA] ; 

2689 

41 

ENDIF; 

2690 

31$ 

$1 

2691 

31 

IF  NBNDCOND  >  1  CALL  NULLMAT  {  [UG(BC)],  [AG (BC) ] ,  [UAG(BC)],  [AAG (BC) ] , 

2692 

4  1 

[PHIG (BC) ]  ); 

2693 

31 

IF  NMPC  <>  0  THEN 

2694 

41$ 

$1 

2695 

41$ 

DATA  RECOVERY  WITH  MPC-REDUCTION 

$1 

2696 

41$ 

$1 

2697 

4! 

PRINT ( "LOG= ( 1  MPC  RECOVERY  * ) " } ; 

2698 

41 

IF  BLOAD  <>  0  THEN 

2699 

5! 

[UM]  :=  [TMN (BC) ]  *  [UN]; 

2700 

51 

CALL  ROWMERGE  {  [UG(BC)3,  [UM] ,.  [UN],  [PGMN (BC) ]  ); 

2701 

51 

IF  NRSET  <>  0  THEN 

2702 

61 

[UM]  :=  [ TMN { BC ) ]  *  [AN]; 

2703 

61 

CALL  ROWMERGE  {  [AG(BCJ],  [UM],  [AN],  [PGMN (BC) ]  ); 

2704 

61 

ENDIF; 

2705 

51 

ENDIF; 

2706 

41 

IF  BSAERO  <>  0  THEN 

2707 

5! 

[UM]  [TMN (BC) ]  *  [UAN]; 

2708 

5! 

CALL  ROWMERGE  (  [UAG(BC)],  [UM],  [UAN],  [PGMN (BC) ]  }; 

2709 

5! 

IF  NRSET  <>  0  THEN 

2710 

61 

[UM]  [TMN { BC) ]  *  [AAN]; 

2711 

61 

CALL  ROWMERGE  (  [AAG (BC) ] ,  [UM] ,  [AAN],  [PGMN (BC) ]  ); 

2712 

6! 

ENDIF; 

2713 

51 

ENDIF; 

2714 

41 

IF  BMODES  <>  0  THEN 

2715 

51 

[UM]  :«  [TMN  (BC) ]  *  [PHIN]; 

2716 

5! 

CALL  ROWMERGE  (  [PHIG(BC)],  [UM] ,  [PHIN],  [PGMN (BC) ]  ); 

2717 

51 

ENDIF; 

2718 

41 

IF  BDTR  <>  0  OR  BMTR  <>  0  THEN 

2719 

5! 

[UM]  :«  [TMN (BC) ]  *  [UTRANN]; 

2720 

51 

CALL  ROWMERGE  (  [UTRANG] ,  [UM] ,  [UTRANN],  [PGMN (BC) ]  ); 

2721 

51 

ENDIF; 

2722 

41 

IF  BDFR  <>  0  OR  BMFR  <>  0  THEN 

2723 

5! 

[UM]  ;=  [TMN (BC) ]  *  [UFREQN]; 

2724 

51 

CALL  ROWMERGE  (  [UFREQG] ,  [UM] ,  [UFREQN],  [PGMN (BC) ]  ); 

2725 

51 

ENDIF; 

2726 

4! 

ELSE 

2727 

41$ 

$1 

2728 

41$ 

DATA  RECOVERY  WITHOUT  MPC-REDUCTION 

$1 

2729 

41$ 

$1 

2730 

4  1 

IF  BLOAD  <>  0  THEN 

2731 

5! 

[UG(BC) ]  :=  [UN]; 

2732 

51 

IF  NRSET  <>  0  [AG (BC)  ]  :■=  [AN]; 

2733 

5! 

ENDIF; 

2734 

41 

IF  BSAERO  <>  0  THEN 

2735 

51 

[UAG (BC) ]  [UAN]; 

2736 

51 

IF  NRSET  <>  0  [AAG (BC) ]  :=  [AAN]; 

2737 

51 

ENDIF; 

84 


2738 

2739 

2740 

2741 

2742 

2743 

2744 

2745 

2746 

2747 

2748 

2749 

2750 

2751 

2752 

2753 

2754 
2755. J 

2756 

2757 

2758 

2759 

2760 

2761 

2762 

2763 

2764 

2765 

2766 

2767 

2768 

2769 

2770 

2771 

2772 

2773 

2774 

2775 

2776 

2777 

2778 

2779 

2780 

2781 
27  82 

2783 

2784 

2785 

2786 

2787 

2788 

2789 

2790 

2791 

2792 

2793 

2794 

2795 

2796 

2797 

2798 

2799 

2800 
2801 
2802 

2803 

2804 

2805 

2806 
2807 
2608 

2809 

2810 
2811 
2812 

2813 

2814 

2815 

2816 

2817 

2818 


4! 
4! 
4! 
4! 
31$ 
3 !  $ 
3 !  $ 
3! 

3 !  $ 
3 !  $ 
3i$ 
3! 
3! 

4 !  $ 

4 !  $ 

41$ 

4! 

41 

4! 

5! 

51 

51$ 

51$ 

51$ 

5! 


IF  BMODES  <> 
IF  BDTR  <> 
IF  BDFR  <> 
ENDIF; 


[PHIG(BC) ] 
OR  BMTR  <> 
OR  BMFR  <> 


-  [PHIN] ; 
[UTRANG] 
[UFREQG] 


[UTRANNJ ; 
[UFREQN] ; 


RECOVER  PHYSICAL  BLAST  DISCIPLINE  DISPLACEMENTS 
IF  B BLAST  <>  0  [UBLASTG]  [PHIG(BC)]  *  [UBLASTI] ; 


HANDLE  OUTPUT  REQUESTS 


PRINT { "LOG* ( 1 
IF  BSAERO  <> 


OUTPUT  PROCESSING1 )  ")  ; 


0  THEN 


RECOVER  STATIC  AEROELASTIC  LOADS  DATA 


LOOP  TRUE; 

SUB  :«  0; 

WHILE  LOOP  DO 

SUB  SUB  +  1; 
CALL  SAERODRV  (BC, 


SUB,  LOOP,  MINDEX,  SYM,  MACH,  QDP  ) ; 


CALL  THE  TRIMMED  LOADS  COMPUTATION  WITH  PROPER  MATRICES 
IF  SYM  -  1  THEN 


$  ! 
$1 
$1 
i 

$1 
$1 
$  1 


$1 

$1 

$1 


$1 

$! 

$1 


6 }$*****************************  TAKEN  OUT  FOR  ZAERO  ****************************$!  <■ 


6 !  $ 

CALL  OF PALO AD 

(  ,  BC,  MINDEX,  SUB,  GSIZE,  BGPDT (BC) , 

$! 

6!$ 

[GTKG],  [GSTKG],  QDP,  [AIRFRC  (MINDEX)  ]  , 

$! 

6!$ 

[DELTA  (SUB)  ]  ,  [AICMAT  (MINDEX)  ]  , 

$! 

61$ 

[UAG (BC) ] ,  [MGG] ,  [AAG (BC) ] ,  [KFS] , 

$1 

61$ 

[KSS] ,  [UAF],  [YS (BC) ] ,  [PNSF (BC) ] , 

$! 

6 !  $ 

[PGMN (BC) ] ,  [PFJK] ,  NGDR,  USET (BC) , 

$! 

6!$ 

OGRIDLOD  ); 

r****  ★★*****★★★***★■*****  ******  •kirtrk  **★★★★  ★★**★★* 

$! 

****$! 

6 1  ^*****i 
6! 

rtJrtwFwIIIFFIIWFFlFI  * 

CALL  OFPALOAD 

(  ,  BC,  MINDEX,  SUB,  GSIZE,  BGPDT (BC) , 

1 

6! 

[UGTKG],  [UGTKG],  QDP,  [AIRFRC (MINDEX) ] , 

! 

6! 

[DELTA  (SUB)  ]  ,  [AICMAT  (MINDEX)  ]  , 

1 

6! 

[UAG (BC) ] ,  [MGG] ,  [AAG (BC) ] ,  [KFS] , 

! 

61 

[KSS],  [UAF],  [YS  (BC)  ]  ,  [PNSF(BC)], 

! 

6! 

[PGMN (BC) ] ,  (PFJK),  NGDR,  USET(BC), 

! 

6! 

OGRIDLOD  ) ; 

1 

61 

ELSE 

i 

6! 

IF  SYM  -  -1  THEN 

i 

7  I §***********************+*****  TAKEN  OUT  FOR  ZAERO  ****************************$!  4r 


7 !  $ 

CALL 

o 

1 

(  ,  BC,  MINDEX,  SUB,  GSIZE,  BGPDT (BC) , 

$  1 

7 !  $ 

[GTKG],  [GSTKG],  QDP,  [AIRFRC  (MINDEX)  ]  , 

$! 

7 !  $ 

[DELTA  (SUB)  ]  ,  [AAICMAT  (MINDEX)  ]  , 

$! 

7 !  $ 

[UAG  (BC) ] ,  [MGG]  ,  [AAG (BC) ] ,  [KFS]  , 

$! 

71$ 

[KSS] ,  [UAF] ,  [YS (BC) ]  ,  [PNSF (BC) ]  , 

$! 

7 !  $ 

[PGMN (BC) ] ,  [PFJK],  NGDR,  USET  (BC)  , 

$  1 

7 !  $ 

L AXAAA XX A A A A XX A 

LXXXXXXXX4 

OGRIDLOD  ) ; 

r* A********************** ************* ****★**' 

$! 

*+*$  ( 

7  1 

7! 

i  n  w  W  WW  W  *  *  w  ■  W  *  ■  W  W I 

CALL 

WW WwwWWW w» 

OFPALOAD 

(  ,  BC,  MINDEX,  SUB,  GSIZE,  BGPDT (BC) , 

! 

7! 

[UGTKG]  ,  [UGTKG]  ,  QDP,  [AIRFRC  (MINDEX)  ]  , 

! 

7! 

[DELTA  (SUB)  )  ,  [AAICMAT  (MINDEX)  ]  , 

1 

7! 

[UAG  (BC)  ]  ,  [MGG],  [AAG  (BC)  )  ,  [KFS], 

! 

7! 

[KSS],  [UAF],  [YS (BC) ] ,  [PNSF(BC)], 

! 

7! 

[PGMN (BC) ] ,  [PFJK],  NGDR,  USET  (BC)  , 

! 

7! 

OGRIDLOD  ) ; 

1 

71 

ENDIF; 

j 

6! 

ENDIF; 

i 

51$ 

$1 

51$ 

CALL  TO  COMPUTE  THE 

TRIMMED  LOADS/DISPLACEMENTS  ON  THE 

$1 

51$ 

AERODYNAMIC  MODEL 

$1 

51$ 

$1 

51 

IF  SYM  -  1 

THEN 

i 

61  $*******★*********************  TAKEN  OUT  FOR  ZAERO  ****************************$!  <r 


6 !  $ 
61$ 
61$ 
6 !  $ 
6! 
6! 
6! 
6! 
6t 
61 
61 


CALL  OFPAEROM  (  NITER,  BC,  MINDEX,  SUB,  GSIZE,  GEOMSA, 
[GTKGJ,  [GSTKG] ,  QDP,  [AIRFRC (MINDEX) ] , 
[DELTA  (SUB)  ]  ,  [AICMAT  (MINDEX)  ]  , 

[UAG  (BC)  )  ,  QAGRDLOD,  OAGRDDSP  ); 


$! 

$1 

$! 

$! 


CALL  OFPAEROM  (  NITER,  BC,  MINDEX,  SUB,  GSIZE,  GEOMSA,  ! 

[UGTKG] ,  [UGTKG] ,  QDP,  [AIRFRC (MINDEX) ] ,  ! 

[DELTA  (SUB)  ]  ,  [AICMAT  (MINDEX)  )  ,  ! 

[UAG  (BC)  ]  ,  QAGRDLOD ,  OAGRDDSP  );  ! 

ELSE  * 

IF  SYM  -  -1  THEN  i 

7 | $***★*************************  TAKEN  OUT  FOR  ZAERO  ****************************$! 
7  f  $  CALL  OFPAEROM  (  NITER,  BC,  MINDEX,  SUB,  GSIZE,  GEOMSA,  $! 

71$  [GTKG]  ,  [GSTKG]  ,  QDP,  [AIRFRC (MINDEX)  ]  ,  $! 
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2819 

2820 
2821 
2822 

2823 

2824 

2825 

2826 

2827 

2828 

2829 

2830 

2831 

2832 

2833 

2834 

2835 

2836  •* 

2837 

2838 

2839 

2840 

2841 

2842 

2843 

2844 

2845 

2846 

2847 

2848 

2849 

2850 

2851 

2852 

2853 

2854 

2855 

2856 

2857 

2858 


7!$ 

71$ 

7 !  4 

7! 

7! 

7! 

7! 

7! 

61 

51 

4! 

3! 

4! 

41 

4! 

5! 

51 

5! 

5! 

51 

4! 

5! 

5! 

51 

5! 

5! 

4! 

3! 

31 

31 

31 

31 

31 

3! 

31 

31 

3! 

3! 


[DELTA (SUB)]  ,  [AAICMAT  (MINDEX)  ]  , 

[UA6  (BC)  ]  ,  OAGRDLOD,  OAGRDDSP  ); 

r**' 

CALL  OFPAEROM  <  NITER,  BC,  MINDEX,  SUB,  GSIZE,  GEOMSA, 

[UGTKGJ,  [UGTKG]  ,  QDP,  [AIRFRC  (MINDEX)  ]  , 
[DELTA  (SUB)  ]  ,  [AAICMAT  (MINDEX)  ]  , 

[UAG (BC)  ] ,  OAGRDLOD,  OAGRDDSP  ); 

ENDIF? 

ENDIF; 

ENDDO; 

ENDIF; 

IF  BDRSP  <>  0  THEN 

CALL  OFPDLOAD  (  ,  BC,  BGPDT(BC),  PSIZE(BC),  ESIZE(BC),  [PHIG(BC)}, 

[PTGLOAD],  [PTHLOAD] ,  [PFGLOAD] ,  [PFHLOAD] ,  OGRIDLOD  ) 
IF  BDTR  <>  0  OR  BMTR  <>  0 

CALL  OFPSPCF  (  0,  BC,  5,  1,  GSIZE,  ESIZE(BC), 

NGDR,  [KFS] ,  ,  [UTRANF],  ,  , 

[PNSF (BC) ] ,  [PGMN (BC) ] ,  [PFJK], 
[PHIG(BC)),  (PTGLOAD],  [PTHLOAD], 

BGPDT {BC} /  OGRIDLOD  )? 


$! 

$! 

?! 


! 

! 

! 

I  «■ 


IF  BDFR  <>  0 


OR  BMFR  <>  0 
CALL  OFPSPCF 


{  0,  BC,  6,  2,  GSIZE,  ESIZE(BC), 
NGDR,  [KFS] ,  ,  [UFREQF] ,  ,  , 

[PNSF (BC) ] t  (PGMN(BC)],  [PFJK], 
(PHIG(BC)],  [PFGLOAD],  [PFHLOAD], 
BGPDT (BC}#  OGRIDLOD  ); 


ENDIF; 

CALL  OFPLOAD 


{  NUMOPTBC,  BC,  ,  GSIZE,  BGPDT (BC),  PSIZE(BC), 
[PG]  ); 

CALL  OFPDISP {  NUMOPTBC,  BC, 


GSIZE,  BGPDT {BC} ,  ESIZE{BC),  PSIZE(BC), 
OGRIDDSP,  [UG (BC) ] ,  [AG(BC) ] ,  [UAG{BCJ],  [AAG(BC) ] , 
[UBLASTG] ,  ,  [UTRANG],  [UTRANE] ,  [UFREQG] ,  [UFREQE] , 
LAMBDA,  [PHIG (BC) }  ); 

CALL  EDR  (  NUMOPTBC,  BC,  ,  NDV,  GSIZE,  EOSUMMRY,  EODISC, 

GLBDES,  LOCLVAR,  [PTRANS] , 

[UG (BC) ] ,  [UAG(BC) ] ,  ,  [UTRANG],  [UFREQG],  [PHIG(BC)]  ); 
CALL  OFPEDR  (  BC,  HSIZE(BC)  ); 

ENDDO; 


21 ENDIF; 
1 1  END; 
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APPENDIX  C 


ZAERO  BULK  DATA  TEMPLATE  DEFINITIONS 

(TEMPLATE.DAT) 
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The  following  lists  the  twenty  three  (23)  new  bulk  data  templates  in  file  (TEMPLATE.DAT)  used 
to  define  the  ZAERO  bulk  data  cards: 


ACOORD 

I  ID 

IXORIGN 

IYORIGN 

1 ZORIGN 

I  DELTA 

| THETA 

1XMCNT 

IYMCNT 

ICONT 

CHAR 

INT 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

CHAR 

DEFAULT 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

CHECKS 

GT  0 

1 

2 

3 

4 

5 

6 

7 

8 

ACOORD 

ID 

XORIGN 

YORIGN 

ZORIGN 

DELTA 

THETA 

XMCNT 

YMCNT 

+COORD 

1  ZMCNT 

| XBEND 

1YBEND 

IZBEND 

1 XTORQ 

I YTORQ 

I  ZTORQ 

1 

1 

CHAR 

REAL. 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

DEFAULT 

0.0  *' 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

CHECKS 

9 

10 

11 

12 

13 

14 

-15 

ZMCNT 

XBEND 

YBEND 

ZBEND 

XTORQ 

YTORQ 

ZTORQ 

AEROZ 

1  ACS ID 

1 XZSYM 

| RHOREF 

IREFC 

IREFB 

IREFS 

t  GREF  1 

1  1 

CHAR 

INT 

CHAR 

REAL 

REAL 

REAL 

REAL 

INT 

DEFAULT 

0 

YES 

1.0 

1.0 

1.0 

1.0 

0 

CHECKS 

GE  0. 

GE  0. 

GE  0. 

GE  0. 

GE  0 

1 

2 

3 

4 

5 

6 

-7 

AEROZ 

ACS  ID 

XZSYM 

RHOREF 

REFC 

REFB 

REFS 

GREF 

$ 

AESURFZ 1  LABEL 

1  TYPE 

ICID 

1SETK 

1 SETG  1  1 

1  i  i 

CHAR  CHAR 

CHAR 

INT 

INT 

INT 

DEFAULT 

CHECKS 

1 

3 

GE  0 

5 

GT  0 

6 

GE  0 
-7 

AESURFZ  LABEL 

TYPE 

CID 

SETK 

SETG 

$ 

ATTACH 

CHAR 

DEFAULT 

CHECKS 

ATTACH 

1EID 

INT 

GT  0 

1 

EID 

| MODEL 
CHAR 

2 

MODEL 

I  SETK  | REFGRID 1 FEEDBK 

INT  INT  CHAR 

FLEX 

GT  0  GT  0  FRCHK 

4  5-6 

BOXSETIDREFGRD  FEEDBK 

1  1 

1  1 

1  1  1 

$ 

BODY7 

|  IDBODY 

ILABELB 

1  IP BODY 

| ACOORD 

INS  EG 

IID(l) 

I  ID{2) 

I  ID (3)  ICONT  I 

CHAR 

INT 

CHAR 

INT 

INT 

INT 

INT 

INT 

INT  CHAR 

DEFAULT 

0 

0 

NULL 

NULL 

CHECKS 

GT  0 

GE  0 

GE  0 

GE  1 

GT  0 

GTZOB 

GTZOB 

1 

2 

4 

5 

6 

7 

8 

9 

BODY  7 

IDBODY 

LABELB 

IP BODY 

ACOORD 

NS  EG 

IDMESHA 

IDMESHB 

IDMESHC 

+BODY7 

1  ID ( 5) 

1  ID { 6 ) 

1  ID  (7) 

1  ID (8) 

l  ID (9) 

1  ID  CIO) 

IID(ll) 

|  ID (12)  l  l 

CHAR 

INT 

INT 

INT 

INT 

INT 

INT 

INT 

INT 

DEFAULT 

NULL 

NULL 

NULL 

NULL 

NULL 

NULL 

NULL 

NULL 

CHECKS 

GTZOB 

GTZOB 

GTZOB 

GTZOB 

GTZOB 

GTZOB 

GTZOB 

GTZOB 

10 

11 

12 

13 

14 

15 

16 

-17 

IDMESHD  IDMESHE  IDMESHF  IDMESHG  IDMESHH  IDMESHI 

IDMESHJ 

IDMESHK  $ 
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CAER07  |EID 

1  LABELC 

IACOORD 

INSPAN 

| NCHORD 

ILSPAN 

i  ZTAIC 

IPAFOIL 

| CONT  I 

CHAR  I NT 

CHAR 

I  NT 

INT 

INT 

INT 

INT 

INT 

CHAR 

DEFAULT 

0 

0 

0 

0 

CHECKS  GT  0 

GE  0 

GE  2 

GE  2 

GE  0 

GE  0 

GE  0 

1 

2 

4 

5 

6 

7 

8 

9 

CAER07  EID 

LABELC 

ACOORD 

NS  PAN 

NCHORD 

LS  PAN 

ZTAIC 

PAFOIL 

+CAER07 | XRL 

IYRL 

|  ZRL 

|  RCH 

I LRCHD 

IATTR 

1 

1 

I CONT  l 

CHAR  REAL 

REAL 

REAL 

REAL 

INT 

INT 

CHAR 

DEFAULT 

0 

0 

CHECKS 

GE  0. 

GE  0 

GE  0 

10 

11 

12 

13 

14 

15 

XRL 

YRL 

ZRL 

RCH 

LRCHD 

ATTR 

+CAER07 | XTL 

I  YTL 

IZTL 

ITCH 

| LTCHD 

IATTT 

1 

1 

1  1 

CHAR  REAL 

REAL 

REAL 

REAL 

INT 

INT 

DEFAULT 

0 

0 

CHECKS 

GE  0. 

GE  0 

GE  0 

16 

17 

18 

19 

20 

-21 

XTL  •' 

YTL 

ZTL 

TCH 

LTCHD 

ATTT 

$ 

CHORDCP | ID 

IX 

ICPU 

|  CPL 

IX 

ICPU 

ICPL  1 

| CONT  | 

CHAR  INT 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

CHAR 

DEFAULT 

CHECKS  GT  0 

GE  0. 

GE  0. 

1 

2 

3 

-4 

2 

3 

-4 

CHORDCP  ID 

X 

CPU 

CPL 

+CHRDCPI 

IX 

ICPU 

ICPL 

IX 

ICPU 

ICPL  I 

I  ETC  1 

CHAR 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

CHAR 

DEFAULT 

CHECKS 

GE  0. 

GE  0. 

2 

3 

-4 

2 

3 

-4 

§ 

FLUTTER! SID 

| METHOD 

IDENS 

IIDMK 

1  VEL 

IMLIST 

IKLIST 

IEFFID  ICONT 

1 

CHAR  INT 

CHAR 

INT 

INT 

INT 

INT 

INT 

INT 

DEFAULT 

PK 

CHECKS  GT  0 

GT  0 

GT  0 

GT  0 

GE  0 

GE  0 

GE  0 

1 

2 

3 

4 

5 

6 

7 

8 

FLUTTER  SETID 

METHOD 

DENS 

IDMK 

VEL 

MLIST 

KLIST 

EFFID 

+FLUTTRI SYMXZ 

| SYMXY 

I  EPS 

ICURVFITI PRINT 

1 

CHAR  INT 

INT 

REAL 

CHAR 

INT 

DEFAULT 

l.E-5 

LINEAR 

0 

CHECKS  IB  -1 

GT  0. 

FLTFIT 

9  1 

10 

11 

12 

-14 

SYMXZ 

SYMXY 

EPS 

CURVFIT 

PRINT 

$ 

GUST 

1  SID 

IGLOAD 

|WG 

1X0 

IV 

IQDP 

IIDMK  | 

ICONT  I 

CHAR 

INT 

INT 

REAL 

REAL 

REAL 

REAL 

INT 

CHAR 

DEFAULT 

CHECKS 

GT  0 

GT  0 

NE  0. 

GT  0. 

GT  0. 

GT  0 

1 

2 

3 

4 

5 

6 

7 

GUST 

SID 

GLOAD 

WG 

X0 

V 

QDP 

IDMK 

+GUST 

ISYMX2 

| SYMXY 

1 

CHAR 

INT 

INT 

DEFAULT 

CHECKS 

IB  -1 

8  1 

-9  0 

SYMXZ 

SYMXY 

$ 

LOADMODI LID 

1  LABEL 

ICP 

ISETK 

ISETG  1  1 

1  1  1 

CHAR  INT 

CHAR 

INT 

INT 

INT 

DEFAULT 

CHECKS  GT  0 

GE  0 

GT  0 

GT  0 

1 

2 

4 

5 

-6 

LOADMOD  LID 

LABEL 

CP 

SETK 

SETG 

§ 
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MACHCP 

i  ID 

IMACH 

1 IGRID 

! INDICIAI SPNID 

ICHDCP 

ISPNID 

ICHDCP 

| CONT  I 

CHAR 

INT 

REAL 

INT 

INT 

INT 

INT 

INT 

INT 

CHAR 

DEFAULT 

0.9 

0 

0 

CHECKS 

GT  0 

GE  0. 

GE  0 

GT  0 

GT  0 

1 

2 

3 

4 

5 

-6 

5 

-6 

MACHCP 

ID 

MACH 

IGRID 

INDICIA 

SPANID 

CHORDCP 

+MACHCPI SPNID 

ICHDCP 

1  SPNID 

ICHDCP 

ISPNID 

ICHDCP 

ISPNID 

ICHDCP 

1  ETC  | 

CHAR 

INT 

INT 

INT 

INT 

INT 

INT 

INT 

INT 

CHAR 

DEFAULT 

CHECKS 

5 

-6 

5 

-6 

5 

-6 

5 

-6 

$ 

MKAEROZ I IDMK 

IMACH 

| METHOD 

IIDFLT 

ISAVE 

| FILE1 

| FILE2 

1  PRINT 

1 CONT  I 

CHAR  INT 

REAL 

INT 

INT 

CHAR 

CHAR 

CHAR 

INT 

CHAR 

DEFAULT 

0 

0 

CHECKS  GT  0 

GE  0.0 

GE  0 

1 

2 

3 

4 

5 

7 

9 

11 

MKAEROZ  IDMK 

MACH 

METHOD 

IDFLT 

SAVE 

FILE1 

FILE2 

PRINT 

+MKAROZ | FREQ ( 1 ) 

1  FREQ (2) 

1  FREQ (3) 

1  FREQ (4) 

1  FREQ { 5 ) 

1  FREQ (6) 

1  FREQ  (7) 

(FREQ (9} 

1  ETC  l 

CHAR  REAL 

DEFAULT  0. 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

CHAR 

CHECKS  GE  0  . 

GE  0. 

GE  0. 

GE  0. 

GE  0. 

GE  0. 

GE  0. 

GE  0. 

-12 

RFREQ 

-12 

-12 

-12 

-12 

-12 

-12 

-12 

$ 

PAFOIL7 | ID 

IIAFX 

IITHR 

IICAMR 

IRADR 

IITHT 

IICAMT 

1 RADT  |  1 

CHAR  INT 

INT 

INT 

INT 

REAL 

INT 

INT 

REAL 

DEFAULT 

0 

0 

0 

0.0 

0 

0 

0.0 

CHECKS  GT  0 

GE  0 

GE  0 

GE  0.0 

GE  0 

GE  0 

GE  0.0 

1 

2 

3 

4 

5 

6 

7 

-8 

PAFOIL7  ID 

IAFX 

ITHR 

ICAMR 

RADR 

ITHT 

ICAMT 

RADT  $ 

PANLST1 ! SETID 

IMACROIDI 

BOX1 

1 BOX2  |  |  | 

1  1  1 

CHAR  INT 

INT 

INT 

INT 

DEFAULT 

CHECKS  GT  0 

GT  0 

GT  0 

GEP 

1 

2 

3 

-4 

PANLST1  SETID 

MACRO ID 

BOX1 

BOX2 

$ 

PANLST2 I SETID 

IMACROIDI 

B(l) 

1  B  { 2) 

IB{3) 

1  B  (4) 

1  B  (5) 

IB{6) 

1 CONT  I 

CHAR  INT 

DEFAULT 

INT 

INT 

INT/CHARINT 

INT 

INT 

INT 

CHAR 

CHECKS  GT  0 

GT  0 

GE  0 

GE  0 

GE  0 

GE  0 

GE  0 

GE  0 

1 

PANLST2  SETID 

2 

MACRO ID 

-3 

BOXI 

-3 

-3 

-3 

-3 

-3 

+PNLST2 | B (N) 

I B (N+l)  ! 

B {N+2} 

|B(N+3) 

1 B (N+4) 

1 B {N+5} 

I B (N+6) 

|B(N+7} 

1  ETC  | 

CHAR  INT 

DEFAULT 

INT 

INT 

INT 

INT 

INT 

INT 

INT 

CHAR 

CHECKS  GE  0 

GE  0 

GE  0 

GE  0 

GE  0 

GE  0 

GE  0 

GE  0 

-3 

-3 

-3 

-3 

-3 

-3 

-3 

-3 

$ 
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PB0DY7  | 

1  IPBODY7 | WAKE 

ICPBASE 

| XSWAKE 

| XDWAKE 

I YWAKE 

| ZWAKE 

I  INLET 

JCONT  I 

CHAR 

INT 

INT 

REAL 

REAL 

REAL 

REAL 

REAL 

INT 

CHAR 

DEFAULT 

0 

-0.2 

1.3 

1.1 

0.0 

0.0 

0 

CHECKS 

GT  0 

GE  0 

GE  1.0 

GE  1.0 

GE  0 

1 

2 

3 

4 

5 

6 

7 

8 

PBODY7 

IPBODY7 

WAKE 

CPBASE 

XSWAKE 

XDWAKE 

YWAKE 

ZWAKE 

INLET 

+PBODY7 | IDP (1) 

I FLW(l) 

| IDP (2) 

| FLW{2) 

I IDP (3) 

I FLW(3} 

1 IDP ( 4 ) 

1 FLW { 4 ) 

1  ETC  1 

CHAR 

INT 

REAL 

INT 

REAL 

INT 

REAL 

INT 

REAL 

CHAR 

DEFAULT 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

CHECKS 

9 

-10 

9 

-10 

9 

-10 

9 

-10 

IDP 

FLOWRT 

$ 

SEGMESHI IDMESH 

INAXIS 

INRAD 

1 

1 

1 

1 

1 

I CONT  I 

CHAR 

INT  ••• 

INT 

INT 

CHAR 

DEFAULT 

CHECKS 

GT  0 

GE  2 

GE  2 

1 

2 

3 

SEGMESH 

IDMESH 

NAXIS 

NRAD 

+SEG1 

IIT(N) 

IX  CN) 

1 CM{N) 

|YR(N) 

tZR(N) 

IIY(N) 

1 IZ  CN) 

1 

1 ETCT  1 

CHAR 

INT 

REAL 

REAL 

REAL 

REAL 

INT 

INT 

CHAR 

DEFAULT 

0 

0 

CHECKS 

GT  0 

4 

5 

6 

7 

8 

9 

-10 

ITYPE 

X 

CAM 

YR 

ZR 

IDY 

IDZ 

$ 

SPLINE1 I EID 

| MODEL 

|CP 

ISETK 

ISETG 

IDZ 

1  EPS 

CHAR 

INT 

CHAR 

INT 

INT 

INT 

REAL 

REAL 

DEFAULT 

CHECKS 

GT  0 

GE  0 

GT  0 

GT  0 

GE  0. 

0.01 
GE  0. 

1 

2 

4 

5 

6 

7 

-e 

SPLINE1 

EID 

MODEL 

CP 

BOXSETIDGRDSETIDFLEX 

EPS 

SPLINE2 I EID 

1  MODEL 

ISETK 

ISETG 

IDZ 

IDTOR 

|  CID 

CHAR  INT 

CHAR 

INT 

INT 

REAL 

REAL 

INT 

DEFAULT 

CHECKS  GT  0 

GT  0 

GT  0 

GE  0. 

GE  0. 

GE  0 

1 

2 

4 

5 

6 

7 

8 

SPLINE2  EID 

MODEL 

BOXS  ET I DGRDS ET I D  FL  EX 

DTOR 

CID 

+SPLNE2 1 DTHY 

1 

1 

1 

1 

1 

1 

CHAR  REAL 

DEFAULT 

CHECKS 

-10 


DTHY 


! 


IDTHX 

REAL 


9 

DTHX 

I 


I  I 


$ 


1 CONT  I 

CHAR 


I  I 


$ 


SPLINE3 I EID 

| MODEL 

ICP 

ISETK 

ISETG 

IDZ 

I  EPS 

1 

CHAR 

INT 

CHAR 

INT 

INT 

INT 

REAL 

REAL 

DEFAULT 

0.01 

CHECKS 

GT  0 

GE  0 

GT  0 

GT  0 

GE  0. 

GE  0. 

1 

2 

4 

5 

6 

7 

-8 

SPLINE3 

EID 

MODEL 

CP 

BOXS  ET I DGRDS  ET I D  FLEX 

EPS 

SPOINT  I 

i  ID 

1  ID 

1  ID 

i  ID 

1  ID 

1  ID 

1  ID 

1  ID 

CHAR 

INT 

INT/CHARINT 

INT 

INT 

INT 

INT 

INT 

DEFAULT 

CHECKS 

GT  0 

GE  0 

GE  0 

GE  0 

GE  0 

GE  0 

GE  0 

GE  0 

-1 

-1 

-1 

-1 

-1 

-1 

-1 

-1 

SPOINT 

EXT  ID 
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TRIM  ISETID 

|  IDMK 

IQDP 

ITRMTYP 

i  EFFID 

|V0 

| PRINT 

1 

(CONT 

1 

CHAR 

INT 

INT 

REAL 

CHAR 

INT 

REAL 

INT 

CHAR 

DEFAULT 

CHECKS 

GT  0 

GT  0 

GT  0. 

TRIM 

GE  0 

GE  0. 

1 

2 

3 

4 

6 

7 

8 

TRIM 

SETID 

IDMK 

QDP 

TRMTYP 

EFFID 

VO 

PRINT 

+TRIM  ILABEL1 

IVALUE1 

l LABEL2 

| VALUE2 

I LABEL3 

1  VALUE 3 

(LABEL4 

[ VALUE 4 

|  ETC 

1 

CHAR 

CHAR 

REL/CHARCHAR 

REL/CHARCHAR 

REL/CHARCHAR 

REL/CHARCHAR 

DEFAULT 

CHECKS 

9 

-11 

9 

-11 

9 

-11 

9 

-11 

LABELI 

FIXI 

FREEI 

$ 

TRIMFLT i IDFLT 

1 TILTA 

I  ALPHA 

IBETA 

I  PRATE 

IQRATE 

(RRATE 

1 

(CONT 

t 

CHAR 

INT 

INT 

REAL 

REAL 

REAL 

REAL 

REAL 

CHAR 

DEFAULT 

0 

0.0 

0.0 

0.0 

0.0 

0.0 

CHECKS 

GT  0 

1 

2 

3 

4 

5 

6 

7 

TRIMFLT 

IDFLT 

TILTA 

ALPHA 

BETA 

PRATE 

QRATE 

RRATE 

+TRIMF 

!  LABELI 

iVALUEl 

I LABEL2 

IVALUE2 

ILABEL3 

1  VALUE 3 

(LABEL4 

(VALUE 4 

1  ETC 

1 

CHAR 

CHAR 

REAL 

CHAR 

REAL 

CHAR 

REAL 

CHAR 

REAL 

CHAR 

DEFAULT 

0.0 

CHECKS 

8 

-10 

8 

-10 

8 

-10 

8 

-10 

LABELI 

VALUE 

$ 

ZTAIC 

1  ID 

[NFLAP 

|  MACHCP1 1 MACHCP2  1 MACHCP3 1 MACHCP4  I MACHCP5 (MACHCP6 1 CONT 

1 

CHAR 

INT 

INT 

INT 

INT 

INT 

INT 

INT 

INT 

CHAR 

DEFAULT 

0 

0 

0 

0 

0 

O 

CHECKS 

GT  0 

GE  0 

GT  0 

GE  0 

GE  0 

GE  0 

GE  0 

GE  0 

1 

2 

3 

4 

5 

6 

7 

8 

ZTAIC 

ID 

NFLAP 

MACHCP1  MACHCP2  MACHCP3  MACHCP4  MACHCP5  MACHCP6 

+ZTAIC 

1  LABEL 

1  HINGE 

| INBDY 

| OUTBDY 

(LABEL 

(HINGE 

| INBDY 

| OUTBDY 

(ETC 

1 

CHAR 

CHAR 

INT 

INT 

INT 

CHAR 

INT 

INT 

INT 

CHAR 

DEFAULT 

2 

1 

2 

CHECKS 

GE  1 

GE  1 

■  GE  2 

9 

10 

11 

-12 

9 

10 

11 

-12 

LABEL 

HINGE 

INBDY 

OUTBDY 

$ 
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The  following  are  the  relational  SCHEMA  definitions  (from  file  RELATION.DAT)  for  all 
database  relational  entities  used  by  the  ZAERO  module: 


RELATION  ACOORD  j 

RELATION 

BODY7 

ID 

INT 

IDBODY 

INT 

XORIGN 

RSP 

LABELB. 

STR  8 

YORIGN 

RSP 

IP BODY 

INT 

ZORIGN 

RSP 

ACOORD 

INT 

DELTA 

RSP 

NS  EG 

INT 

THETA 

RSP 

IDMESHA 

INT 

XMCNT 

RSP 

IDMESHB 

INT 

YMCNT 

RSP 

IDMESHC 

INT 

ZMCNT 

RSP 

IDMESHD 

INT 

XBEND 

RSP 

IDMESHE 

INT 

YBEND 

RSP 

IDMESHF 

INT 

ZBEND 

RSP 

IDMESHG 

INT 

XTORQ 

RSP 

IDMESHH 

INT 

YTORQ 

RSP 

IDMESHI 

INT 

ZTORQ 

RSP 

IDMESHJ 

INT 

END 

IDMESHK 

INT 

END 

RELATION 

AGRIDZ 

EXTID 

INT 

RELATION 

CAER07 

INTID 

INT 

EID 

INT 

CORD 

INT 

LABELC 

STR  8 

X 

RSP 

ACOORD 

INT 

Y 

RSP 

NS  PAN 

INT 

Z 

RSP 

NCHORD 

INT 

END 

LSPAN 

INT 

ZTAIC 

INT 

RELATION 

AEROZ 

PAFOIL 

INT 

ACSID 

INT 

XRL 

RSP 

XZSYM 

STR  4 

YRL 

RSP 

RHOREF 

RSP 

ZRL 

RSP 

REFC 

RSP 

RCH 

RSP 

REFB 

RSP 

LRCHD 

INT 

REFS 

RSP 

ATTR 

INT 

GREF 

INT 

XTL 

RSP 

END 

YTL 

RSP 

ZTL 

RSP 

RELATION 

AESURFZ 

TCH 

RSP 

LABEL 

STR  8 

LTCHD 

INT 

TYPE 

STR  8 

ATTT 

INT 

CID 

INT 

END 

SETK 

INT 

SETG 

INT 

RELATION 

CHORDCP 

END 

ID 

INT 

X 

RSP 

RELATION 

AQUADZ 

CPU 

RSP 

MACRO  I D 

INT 

CPL 

RSP 

ACMPNT 

INT 

END 

NDOF 

INT 

EXTID 

INT 

RELATION 

FLUTTER 

INTID 

INT 

SETID 

INT 

AREA 

RSP 

METHOD 

STR  4 

X 

RSP 

DENS 

INT 

Y 

RSP 

IDMK 

INT 

Z 

RSP 

VEL 

INT 

N1 

RSP 

MLIST 

INT 

N2 

RSP 

KLIST 

INT 

N3 

RSP 

EFFID 

INT 

R1 

RSP 

SYMXZ 

INT 

R2 

RSP 

SYMXY 

INT 

R3 

RSP 

EPS 

RSP 

RTHETA 

RSP 

CURVFIT 

STR  8 

RDELTA 

RSP 

MACHVAL 

RSP 

CHORD 

RSP 

PRINT 

INT 

IDI 

RSP 

END 

ID2 

RSP 

ID3 

RSP 

ID4 

RSP 

CAM85 

RSP 

CAM9  5 

RSP 

DZX8  5 

RSP 

DZX95 

RSP 

DZXLE 

RSP 

DZXTE 

RSP 

END 

RELATION 

GEOMZA 

RELATION 

PANLST1 

SETID 

INT 

MACRO ID 

INT 

MACROID 

INT 

ACMPNT 

STR  8 

BOX1 

INT 

NDOF 

INT 

BOX2 

INT 

EXTID 

INT 

END 

INTID 

INT 

AREA 

RSP 

RELATION 

PANLST2 

X 

RSP 

SETID 

INT 

Y 

RSP 

MACROID 

INT 

Z 

RSP 

BOXI 

INT 

N1 

RSP 

END 

N2 

RSP 

N3 

RSP 

RELATION 

PBODY7 

R1 

RSP 

IPBODY7 

INT 

R2 

RSP 

WAKE 

INT 

R3 

RSP 

CPBASE 

RSP 

RTHETA 

RSP 

XSWAKE 

RSP 

RDELTA 

RSP 

XDWAKE 

RSP 

CHORD 

RSP 

YWAKE 

RSP 

IDI 

RSP 

ZWAKE 

RSP 

ID2 

RSP 

INLET 

INT 

ID3 

RSP 

IDP 

INT 

ID4 

RSP 

FLOWRT 

RSP 

CAM85 

RSP 

END 

CAM95 

RSP 

DZX85 

RSP 

RELATION 

REUNMK 

DZX95 

RSP 

IDMK 

INT 

DZXLE 

RSP 

MACH 

RSP 

DZXTE 

RSP 

METHOD 

INT 

INLET 

INT 

SYMXZ 

INT 

IWAKE 

INT 

ALPHA 

RSP 

END 

BETA 

RSP 

PRATE 

RSP 

RELATION 

LOADMOD 

QRATE 

RSP 

LID 

INT 

RRATE 

RSP 

LA3EL 

STR  8 

MINDEX 

INT 

CP 

INT 

KINDEX 

INT 

SETK 

INT 

RFREQ 

RSP 

SETG 

INT 

END 

END 

RELATION 

SEGMESH 

RELATION 

MACHCP 

IDMESH 

INT 

ID 

INT 

NAXIS 

INT 

MACH 

RSP 

NRAD 

INT 

I  GRID 

INT 

ITYPE 

INT 

INDICIA 

INT 

X 

RSP 

SPANID 

INT 

CAM 

RSP 

CHORDCP 

INT 

YR 

RSP 

END 

ZR 

RSP 

IDY 

INT 

RELATION 

MKAEROZ 

IDZ 

INT 

IDMK 

INT 

END 

MACH 

RSP 

METHOD 

INT 

RELATION 

SPLINE3 

IDFLT 

INT 

EID 

KINT 

SAVE 

STR  8 

MODEL 

STR  8 

FILE1 

STR  8 

CP 

INT 

FILE2 

STR  8 

BOXSETID 

i  INT 

PRINT 

INT 

GRDSETID 

i  INT 

RFREQ 

RSP 

FLEX 

RSP 

END 

EPS 

RSP 

END 

RELATION  PAF0IL7 

ID 

INT 

RELATION 

f  TRIMFLT 

IAFX 

INT 

IDFLT 

INT 

ITHR 

INT 

TILT  A 

INT 

ICAMR 

INT 

ALPHA 

RSP 

RADR 

RSP 

BETA 

RSP 

ITHT 

INT 

PRATE 

RSP 

ICAMT 

INT 

QRATE 

RSP 

RADT 

RSP 

RRATE 

RSP 

END 

LABELI 

STR  8 

VALUE 

RSP 

END 
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RELATION  ZTAIC 
ID  INT 

NFLAP  INT 
MACHCP1  INT 
MACHCP2  INT 
MACHCP3  INT 
MACHCP4  INT 
MACHO P 5  INT 
MACHCP6  INT 
LABEL  STR  4 
HINGE  INT 
INBDY  INT 
OUTBDY  INT 
END 
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In  following  the  ASTROS  format  for  error  message  definitions,  three  new  error  message  modules 
(numbers  35  through  37)  have  been  generated  for  the  ZAERO  software  and  added  to  the 
SERRMSG.DAT  file.  These  ZAERO  error  message  modules  are  listed  as  follows: 


‘MODULE  35  ZONA’S  AEROGM  MODULE  MESSAGES 

’NO  $  BULK  DATA  ENTRIES  ARE  DEFINED,  BUT  BODY7  BULK  DATA  EXISTS  IN  THE  INPUT.' 

'$  BULK  DATA  ENTRY  WITH  BID:  $  HAS  $  NUMBER  OF  SEGMENTS,  BUT  THERE  ARE  ONLY  $  NUMBER  OF  SEGMESH  * 

'BULK  DATA  ENTRIES  DEFINED.' 

'BULK  DATA  ENTRY  $  IS  REFERED  BY  A  ID:  $  BUT  NO  $  EXISTS  IN  THE  INPUT.' 

•ID  NUMBER:  $  OF  BULK  DATA  CARD  $  IS  NOT  DEFINED.' 

'BULK  DATA  ENTRY  $  WITH  ID:  $  ,  REFERS  TO  BULK  DATA  ENTRY  $  WITH  ID:  $  WHICH  DOES  NOT  EXIST. ' 

'$  BULK  DATA  CARD  WITH  ID:  $  SPECIFIES  $  NUMBER  OF  AXIAL  STATIONS,  BUT  ONLY  $  ARE  DEFINED.' 

'THE  X-LOCATIONS  OF  A  $  BULK  DATA  ENTRY  WITH  IDMESH:  $  ARE  NOT  IN  ASCENDING  ORDER  AT  AXIAL  STATIONS  $  AND  $.' 
'$  WITH  WID:  $  HAS  $  NUMBER  OF  SPANWISE  DIVISIONS  DEFINED,  BUT  THERE  ARE  $  NUMBER  OF  VALUES’ 

'LISTED  IN  THE  CORRESPONDING  $  BULK  DATA  ENTRY  WITH  ID:  $  . ' 

’$  WITH  ID:  $  REFERENCED  BY  $  WITH  WID:  $  DOES  NOT  BEGIN  WITH  0.0  OR  END  AT  100.0.' 

•THE  SPANWISE  DIVISIONS  OF  A  $  BULK  DATA  CARD,  ID:  $  REFERENCED  BY  A  $  CARD  WITH  WID:  $,  ARE  NOT’ 

'IN  ASCENDING  ORDER. * 

'THE  TOTAL  NUMBER  OF  MACH  NUMBERS  LISTED  IN  ALL  MACHCP  BULK  DATA  ENTRIES  EXCEEDS  6.' 

'CAER07  ENTRY  WITH  WID:  $,  HAS  NO  STEADY  PRESSURE  INPUT  ON  SPANWISE  STRIP  INDEX  -  $  AND  MACH  NUMBER  -  ' 

'THEREFORE  LINEAR  UNSTEADY  PRESSURE  WILL  BE  COMPUTED  FOR  THIS  STRIP.' 

'CAER07  ENTRY  WITH  WID:  $,  HAS  MORE  THAN  ONE  SPANWISE  STRIP  INDEX  DEFINED  FOR  A  MACHCP  BULK  DATA  ENTRY* 

'FOR  SPANWISE  STRIP  INDEX  «  $  AND  MACH  NUMBER  -  $. ' 

•AERODYNAMIC  §  ID:  $  IS  TOO  LARGE  BASED  ON  AVAILABLE  MEMORY.' 

'A  DUPLICATE  AERODYNAMIC  $  EXISTS  WITH  ID:  $  . * 

’A  SEGMESH  BULK  DATA  CARD  WITH  IDMESH:  $  HAS  $  NUMBER  OF  5-VALUE  CIRCUMFERENTIAL  POINTS  (NRAD)  DEFINED,  ' 

'BUT  THERE  ARE  ONLY  $  NUMBER  OF  VALUES  LISTED  IN  AEFACT  WITH  ID: 

'A  $  WITH  ID:  $  HAS  A  BOX  OF  ZERO  AREA  WITH  ID: 

'ERROR  IN  $  WITH  ID:  $.  INCOMPLETE  LIST  OF  LABEL-HINGE-INBDY-OUTBDY  PAIRS  FOR  NFLAP  - 

'ERROR  IN  $  WITH  ID:  $.  ENTRY  LABEL  -  $  IS  NOT  $  OR  $. ' 

•ERROR  IN  $  WITH  ID:  $.  ENTRY  HINGE  =  $  IS  NOT  GREATER  THAN  1  AND  LESS  THAN  $  {NCHORD)  .' 

•ERROR  IN  $  WITH  ID:  $.  ENTRY  INBDY  -  $  IS  NOT  GREATER  OR  EQUAL  TO  1  AND  LESS  THAN  $  (NS PAN) . ' 

'ERROR  IN  $  WITH  ID:  $.  ENTRY  OUTBDY  -  5  IS  NOT  GREATER  THAN  1  AND  LESS  THAN  OR  EQUAL  TO  5  (NS PAN)  .' 

'ERROR  IN  $  WITH  ID:  $.  ENTRY  INBDY  -  $  IS  GREATER  THAN  OR  EQUAL  TO  ENTRY  OUTBDY  -  $.' 

•A  §  BULK  DATA  CARD  WITH  ID:  5  HAS  A  SPANWISE  INDEX  (SPANID)  -  $  WHICH  IS  LESS  THAN  1  OR  GREATER  THAN  THE' 
•NUMBER  OF  SPANWISE  BOXES  (NSPAN)  * 

'A  5  BULK  DATA  CARD  WITH  ID:  5  DOES  NOT  HAVE  COMPLETED  X-CPU-CPL  PAIRS  (I.E.  IN  THREES).' 

'A  5  BULK  DATA  CARD  WITH  ID:  $  HAS  A  X-LOCATION  VALUE  GREATER  THAN  100  PERCENT  CHORD. ' 

•A  S  BULK  DATA  CARD  WITH  ID:  5  HAS  X-LOCATION  VALUES  THAT  ARE  NOT  IN  ASCENDING  ORDER.' 

'A  $  BULK  DATA  CARD  WITH  ID:  $  HAS  CHORDWISE  X-VALUES  THAT  ARE  NOT  IN  ASCENDING  ORDER,  ' 

'SPECIFIED  IN  5  BULK  DATA  CARD  WITH  ID:  $.' 

'A  $  BULK  DATA  CARD  WITH  ID:  $  HAS  CHORDWISE  X-VALUES  THAT  DO  NOT  START  WITH  0 . 0  OR  END  WITH  100.0' 

'IN  $  BULK  DATA  CARD  WITH  ID:  $.  ' 

'A  $  BULK  DATA  CARD  WITH  ID:  $  SPECIFIES  $  (ITAX)  NUMBER  OF  CHORDWISE  HALF  THICKNESS  VALUES  ($),' 

'BUT  ONLY  $  ARE  LISTED  IN  THE  CORRESPONDING  $  BULK  DATA  CARD  WITH  ID:  5.' 

'A  5  BULK  DATA  CARD  WITH  ID:  $  SPECIFIES  $  (ITAX)  NUMBER  OF  CHORDWISE  CAMBER  VALUES  ($),' 

'BUT  ONLY  $  ARE  LISTED  IN  THE  CORRESPONDING  5  BULK  DATA  CARD  WITH  ID: 

'A  $  BULK  DATA  CARD  WITH  WID:  $  HAS  $  NUMBER  OF  CHORDWISE  DIVISIONS  (NCHORD)  SPECIFIED,’ 

'BUT  ONLY  $  VALUES  ARE  LISTED  IN  THE  CORRESPONDING  $  BULK  DATA  CARD' WITH  ID: 

'A  $  BULK  DATA  CARD  WITH  ID:  $  REFERENCED  BY  A  5  BULK  DATA  CARD  WITH  ID:  $' 

•IS  NOT  DEFINED  AS  THE  CENTERLINE  OF  THE  BODY.' 

'A  $  WING  MACROELEMENT  WITH  WID:  $  HAS  ZERO  AREA.’ 

'DUPLICATED  ID  IN  BULK  DATA  CARD  $  WITH  ID:  $.' 

'ERROR  IN  BULK  DATA  ENTRY  $  WITH  ID:  5.  NUMBER  OF  INLET  PANELS  EQUALS  $  (INLET).' 

'BUT  THERE  ARE  $  NUMBER  OF  BOX  ID  SPECIFIED.' 


♦MODULE  36  ZONA'S  SPLINZ  MODULE  MESSAGES 

’$  ENTRY  $  REFERENCES  AN  AERODYNAMIC  BODY  COMPONENT.  ONLY  WING-LIKE  COMPONENTS  ALLOWED.' 
'COORDINATE  SYSTEM  $,  REFERENCED  ON  $  ENTRY  5/  CANNOT  BE  FOUND.' 

'GRID  POINT  $,  REFERENCED  ON  $  ENTRY  $,  CANNOT  BE  FOUND.' 

'$  ENTRY  $  REFERENCES  STRUCTURAL  SET  DEFINITION  $  THAT  DOES  NOT  EXIST.' 

'THE  STRUCTURAL  SET  DEFINED  BY  SET2  ENTRY  $,  REFERENCED  ON  $  ENTRY  $,  IS  EMPTY.' 

'THE  STRUCTURAL  POINT  DEFINITION  PRISM  DEFINED  BY  SET2  ENTRY  5  ON  $  ENTRY  $  HAS  ILLEGAL  GEOMETY. ' 
’$  ENTRY  $  RESULTS  IN  A  SINGULAR  TRANSFORMATION  MATRIX.' 

'AERODYNAMIC  BOX  WITH  INTERNAL  IDENTIFICATION  NUMBER  $  HAS  BEEN  SPLINED  MORE  THAN  ONCE.’ 

'5  ANALYSES  ARE  REQUESTED  IN  SOLUTION  CONTROL  BUT  NO  SPLINE  OR  ATTACH  ENTRIES  EXIST. ' 

'NO  COORDINATE  SYSTEM  FOR  THE  SPLINE  Y-AXIS  IS  DEFINED  ON  $  ENTRY  $.' 

'  WHEN  USED  ON  A  LIFTING  SURFACE  A  CID  MUST  BE  SUPPLIED.’ 

'$  SETID  $  SPECIFIES  NON-EXISTENT  MACRO- ELEMENT  $.' 

'$  SETID  $  SPECIFIES  NON-EXISTENT  AERODYNAMIC  BOXES  FOR  MACRO-ELEMENT 

'THE  RECTANGULAR  REGION  SPECIFIED  BY  BOX1  AND  BOX2  ON  $  SETID  $  CONTAINS  NO  AERODYNAMIC  BOXES. ' 

'$  SETID  §  SPECIFIES  MORE  BOXES  THAN  EXIST  IN  THE  AERODYNAMIC  MODEL.' 

'?  SETID  $  SPECIFIES  DUPLICATE  AERODYNAMIC  BOXES  MACRO ID  5,  EXTID  $.* 
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'$  SETID  $  SPECIFIES  NON-EXISTENT  AERODYNAMIC  BOX  MACRO ID  $,  EXTID  $.' 

’COORD  SYS  $,  REFERENCED  ON  $  ENTRY,  CANNOT  BE  FOUND.' 

'$  $  SPECIFIES  A  SPLINE  PLANE  WHICH  IS  NEARLY  PERPENDICULAR  TO  THE  FREE  STREAM  VELOCITY.' 
’$  SETID  $  SPECIFIES  AERODYNAMIC  BOXES  BELONGING  TO  MORE  THAN  ONE  MACRO- EL  EM  E NT.  ' 

'$  SETID  $  FAILS  WHEN  USING  DEFAULT  SPLINE  PLANE  (CP-BLANK)  BECAUSE  THE  BOUNDARY  FOR' 

'  MACRO-ELEMENT  $  DOES  NOT  DEFINE  A  PLANE.  USE  CP  OPTION  TO  SPECIFY  A  REFERENCE  PLANE.' 
'SPLINE2  WITH  ID:  $  CAN  ONLY  BE  USED  WITH  CAER07 . ’ 

'AERODYNAMIC  GRID  WITH  INTERNAL  ID:  $  CANNOT  BE  FOUND  IN  ATTACH  BULK  DATA  ENTRY.' 
'STRUCTURAL  GRID  WITH  EXTERNAL  ID:  $  CANNOT  BE  FOUND  IN  ATTACH  BULK  DATA  ENTRY.' 

'SPLINE2  WITH  ID:  $  HAS  LESS  THAN  TWO  STRUCTURAL  GRIDS.’ 

'$  WITH  ID:  $  ERROR.  STRUCTURAL  GRID  WITH  INTERNAL  ID:  $  CANNOT  BE  FOUND.' 

'SPLINE2  WITH  ID:  $  HAS  TWO  STRUCTURAL  GRIDS  WITH  ID:  $  AND  $  THAT  SHARE  THE  SAME  ' 

'  LOCATION  ALONG  THE  LINE  OF  THE  SPLINE.’ 

'THE  $  $  AERODYNAMIC  BOX  IS  NOT  ATTACHED  TO  THE  STRUCTURE,  THEREFORE,  NO  DISPLACEMENT' 

'  IS  ASSUMED  FOR  THIS  BOX.’ 

'AERODYNAMIC  GRID  WITH  INTERNAL  ID:  $  CANNOT  BE  FOUND. ' 

'SPLINEl  WITH  ID:  $  SPECIFIES  A  SPLINE  PLANE  WHICH  IS  NEARLY  PERPENDICULAR  TO  THE  FREE' 

»  STREAM  VELOCITY. 

'$  WITH  ID:  $  REFERS  TO  A  SETi  THAT  HAS  LESS  THAN  $  GRIDS.' 

’$  WITH  ID:  $  REFERS  TO  A  SETi  THAT  HAS  ALL  GRIDS  ALIGNED  ALONG  A  LINE.' 

'$  WITH  ID:  $  REFERS  TO  A  SETi  THAT  HAS  TWO  GRIDS  AT  THE  SAME  LOCATION.’ 

'$  WITH  ID:  $  GIVES  A  SINGULAR  MATRIX. ' 

'A  REFERENCED  LOCAL  COORDINATE  SYSTEM  WITH  ID:  $  CANNOT  BE  FOUND.' 

'SPLINE3  WITH  ID:  $  REFERS  TO  A  SETi  THAT  HAS  ALL  GRIDS  LOCATED  ON  THE  SAME  PLANE.  ' 

'  THE  NORMAL  VECTOR  OF  THE  PLANE  IS  XN  «  $,  YN  -  $,  ZN  =  $  . ' 


♦MODULE  37  ZONA'S  ZAEROM  MODULE  MESSAGES 

'$  WITH  ID:  $  HAS  DUPLICATED  REDUCED  FREQUENCIES. ' 

'THERE  IS  NO  CAER07  OR  BODY7  INPUT  FOR  THE  ZAERO  MODULE. ' 

'THERE  IS  NO  OR  MORE  THAN  ONE  $  INPUT  FOR  THE  ZAERO  MODULE  STEADY/UNSTEADY  AERODYNAMIC  ANALYSIS.' 
'REFERENCE  GRID  ID  FOR  MOMENT  CENTER  (GREF  =  $)  REFERENCED  IN  $  DOES  NOT  EXIST.' 

'THE  CONTROL  POINT  OF  AN  AERODYNAMIC  BOX  WITH  ID:  $  LOCATED  ON  A  CAER07  WING  MACROELEMENT' 

'  WITH  WID:  $  ALIGNS  WITH  THE  EDGE  OF  ANOTHER  AERODYNAMIC  BOX  WITH  ID:  $  LOCATED  ON  A* 

'  CAER07  WITH  WID:  ' 

'THE  CONTROL  POINT  OF  AN  AERODYNAMIC  BOX  WITH  INTERNAL  ID:  $  LOCATED  ON  A  CAER07  WITH  INTERNAL’ 

•  ID:  $  ALIGNS  WITH  THE  EDGE  OF  ANOTHER  AERODYNAMIC  BOX  WITH  INTERNAL  ID:  $  LOCATED  ON  A’ 

*  CAER07  WITH  INTERNAL  ID: 
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